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FOREWORD 


This  document  is  one  of  three  reports  which  describe  ESPOD,  a  general 
satellite  orbit  determination  program  prepared  for  the  Air  Force  Elec¬ 
tronics  System  Division  for  use  in  the  Spacetrack/ SPADATS  Center  at 
Ent  Air  Force  Base,  Colorado  Springs,  Colorado. 

This  report  is 


ESD-TDR-64-395 

ESPOD  Mathematical  and 

Subroutine  Description 
(STL  No.  849 7- 606 5 -RUO 00) 

The  companion  reports  are 


ESD-TDR-64-393 

ESPOD  Functional  Description 
(STL  No.  8497-6067-RU000) 

ESD-TDR-64-394 

ESPOD  Operating  Instructions 

and  Card  Formats 

(STL  No.  8497-6066 -  RUO 00) 

The  ESPOD  program  was  prepared  by  TRW  Space  Technology  Labora 
tories  under  Air  Force  Contract  Number  AF  19(628)-594. 
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1.  INTRODUCTION 


The  primary  function  of  this  report  is  to  provide  the  specialist  in 
the  field  an  in-depth  treatment  of  the  mathematical  and  related  computer 
processes  used  to  develop  the  ESPOD  program.  Secondarily,  it  is  ar¬ 
ranged  to  include  the  fundamental  organization  of  the  program,  the  back¬ 
ground  and  general  information  relative  to  its  options  and  the  computer 
subroutines  and  coordinate  systems. 

For  those  interested  in  an  abridged  technical  discussion  of  ESPOD 
it  is  recommended  that  ESD-TDR-64-393,  ESPOD  Functional  Description, 
be  consulted. 

The  analyst- operator  requiring  operational  information  should 
consult  ESD-TDR- 64-394,  ESPOD  Operating  Instructions  and  Card 
Formats. 
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2.  ESPOD  FUNCTIONAL  FLOW 


The  following  description  gives  the  order  of  functions  and  control 
of  the  more  important  options.  A  summary  block  diagram  is  shown  in 
F igure  2 -  1 ;  the  Guide  Flow  Charts  (see  Section  2.3.  1 .  1 ,  Section  2.3.2.  1 
and  Section  2.  3.  3.  1)  show  more  detail. 

2.  1  ESPOD  FUNCTIONAL  OPERATIONS 

The  entire  ESPOD  program  is  divided  into  three  main  segments: 
a  data  preprocessor,  ESP0D;  a  differential  corrector,  ESP0DDC;  and 
an  ephemeris  generator,  ESP0DEPH. 

2.  1.  1  Preprocessor  Operations 

The  preprocessor  (ESP0D)  processes  all  the  input  data  and  acts 
as  the  main  control  package  for  the  various  program  options  available. 

It  interprets  the  program  control  data  input,  the  satellite  observations 
input,  and  the  other  program  modules.  It  controls  the  calling  of  the 
differential  corrector  (ESP0DDC)  and  the  ephemeris  generator 
(ESP0DEPH)  and  their  subsequent  operations. 

The  flow  of  the  logic  through  ESP0D  is  controlled  by  the  flags 
set  on  the  Job  Description  Card  (JDC),  the  first,  unique,  and  mandatory 
card  for  each  separate  case  in  the  input  deck.  Following  the  JDC  in  the 
deck  setup  are  the  preliminary  data  cards  (specifying  the  initial  condi¬ 
tions,  the  variables  to  be  solved,  the  options,  constant  changes,  etc.), 
the  observation  cards  (unless  observations  are  read  from  the  SRADU 
tape),  and  sensor  cards  (if  file  sensor  data  must  be  augmented  or 
changed). 

Column  30  of  JDC  card  is  used  to  indicate  whether  the  current 
run  is  starting  from  a  "cold  start"  or  a  "conditioned  start."  The  dis¬ 
tinction  is  that  on  a  conditioned  start  the  observations  and  sensor  data 
will  be  recovered  from  a  tape  which  was  generated  on  a  previous  run  of 
the  same  case.  This  eliminates  the  necessity  of  reprocessing  observa¬ 
tion  cards  when  the  only  change  in  an  input  deck  is  in  the  JDC  card  and 
in  the  preliminary  data. 
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The  following  is  the  procedure  for  input  processing  from  a  cold 
start:  the  JDC  card  is  read  and  loaded  into  core,  followed  by  the  pre¬ 
liminary  data  cards  which  are  interpreted  and  organized  into  core  storage. 
At  this  point,  the  program  interrogates  the  JDC  card  to  see  if  this  is  to 
be  a  postprocessor  run  only.  If  so,  ESP0DEPH  is  called  into  core  from 
the  BZ  master  tape  and  control  is  transferred  to  it.  If  ESP0DDC  is  to 
be  executed,  the  observation  cards,  it  any,  are  read  and  time  sorted. 

Sensor  cards,  if  any,  are  then  processed,  and  a  tape  is  generated  of  the 
input  data.  ESP0DDC  is  called  from  the  BZ  tape  and  control  given  to  it. 
After  execution  of  ESP0DDC,  the  JDC  card  is  again  interrogated  and 
ESP0DEPH  is  called  and  executed  if  requested. 

Z.  1 .  Z  Differential  Corrector  Operations 

The  function  of  the  differential  correction  package  (ESP0DDC)  is 
to  determine  the  orbit  which  best  fits,  in  the  least  squares  sense,  the 
observational  data  and  as  a  result  to  improve  the  initial  values  of  the 
solution  variables.  To  perform  this  function,  ESP0DDC  interfaces  with 
the  preprocessor  (ESP0D)  and  the  postprocessor  (ESP0DEPH),  and  the 
observations,  which  have  been  formatted,  as  signed  weights,  time  sequenced, 
and  written  on  an  observation  tape.  Starting  with  an  initial  estimate  of  the 
position  and  velocity  of  the  vehicle  at  some  specified  epoch  time,  a  simu¬ 
lated  trajectory  is  calculated  and  the  "observed"  minus  "computed11  resid¬ 
uals  are  formed.  The  overdetermined  system  of  linear  equations  generated 
is  solved,  in  a  least  squares  sense,  for  the  differential  corrections  to  the 
solution  variables. 

ESP0DDC  is  composed  of  three  major  subpackages;  the  trajectory 
package,  the  radar  partials  package,  and  the  least  squares  package, 

Z.  1 .  Z.  1  Trajectory  Package  (TRAJ) 

The  orbit  is  simulated  through  the  integration  of  the  equations  of 
motion  using  Cowell's  scheme,  with  the  inclusion  of  the  various  perturbing 
forces  controlled  by  input  flags.  The  variational  equations  of  cl  ,  6  ,  p  , 

A  ,  ,  vq,  drag  and  C^A/Zm  and  drag  variation  K  also  are  integrated 

as  needed. 

The  times  at  which  the  trajectory  package  provides  outputs  are  selected 
one  at  a  time  from  the  tape  of  the  observations  which  was  generated  in  the 
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preprocessor.  All  times  before  the  epoch  are  handled  first,  in  chronologi¬ 
cally  reverse  order  from  epoch,  to  obviate  restarting  the  integration  more 
than  twice  on  any  one  iteration. 

2.  1 .  2.  2  Radar  Partials  Package  (RADR) 

At  each  observation  time,  control  is  passed  from  the  trajectory 
package  to  the  radar  partials  package.  This  package  sets  up  the  partial 
derivatives  of  the  observation  (range,  azimuth,  elevation,  range  rate, 
hour  angle,  and  declination)  with  respect  to  each  parameter  in  the  solu¬ 
tion  vector.  The  observed  minus  computed  residual  is  formed  and  an 
over  determined  system  of  equations  AX  =  B  is  built  up  in  a  form  suitable 
to  the  least  squares  package. 

The  radar  partials  package  outputs  the  station  number  and  name, 
observation  time  (minutes  from  epoch),  numbered  residual  (tagged  with 
an  asterisk,  if  deleted),  and  a  summary  table  of  the  mean  and  RMS  of 
the  residuals  for  each  station. 

2.  1.2.  3  Least  Squares  Package  (LEGS2) 

The  least  squares  package  processes  the  matrix  of  partial  deri¬ 
vatives  and  residuals  set  up  by  the  radar  partials  package  in  order  to 
improve  the  solution  variables.  Bounds  are  imposed  on  the  size  of  the 
corrections  made  to  each  variable  in  order  to  keep  the  differential  cor¬ 
rections  sufficiently  small.  On  each  pass  through  this  package,  four 
sets  of  differential  corrections  are  calculated  corresponding  to  the 
current  values  of  bounds,  bounds/2,  bounds/4,  and  bounds/ 8.  The 
latter  three  are  contingent  solutions  supplied  only  if  the  nominal  fails 
to  produce  an  improvement  in  the  total  RMS  of  the  residuals.  On  an 
iteration  which  is  converging  as  predicted,  the  bounds  may  be  doubled 
to  permit  faster  ultimate  convergence.  Convergence  is  assumed  com¬ 
plete  when  the  predicted  value  of  the  RMS  of  the  residuals  is  within  a 
specified  percentage  of  the  current  value. 

The  least  squares  package  outputs  the  differential  correction  to 
be  applied  to  each  variable,  the  old  value  of  the  variable,  the  new  value, 
the  uncertainty,  the  bound,  the  current  RMS,  predicted  RMS,  the  best 
RMS  so  far,  the  covariance  matrix,  the  correlation  matrix,  and  a  mes¬ 
sage  to  indicate  whether  the  solution  is  converging. 
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Z .  1 .  3  Ephemeris  Predictor 


The  ephemeris  predictor  (ESP0DEPH)  calculates  the  position  and 
velocity  of  the  satellite  for  a  set  of  times  specified  in  the  preliminary 
data.  It  interfaces  with  the  preprocessor,  the  differential  corrector, 
the  on-line  output  printer,  and  an  output  parameter  tape.  Options  are 
available  (under  the  control  of  the  JDC  card)  for  updating  an  input 
covariance  matrix,  punching  an  a  priori  S  matrix,  and  generating  a 
binary  ephemeris  tape  in  SPADATS  format.  ESP0DEPH  receives 
its  input  from  a  tape  which  has  been  generated  either  in  ESP0DDC  or 
ESP0D. 

Z.  1.3.  1  Trajectory  Package 

Starting  with  the  initial  position  and  velocity  of  the  vehicle  at  some 
epoch,  the  trajectory  is  simulated  using  a  trajectory  package  identical 
to  the  one  in  ESP0DDC.  However,  output  will  occur  every  At  minutes 
up  to  T  minutes  from  epoch  or  at  the  times  specified  by  the  DAC  card 
or  at  the  times  specified  by  the  PRDCT  cards.  The  trajectory  output 
block  consists  of  the  osculating  elements  reflecting  all  the  perturbations 
present  in  the  integration  model.  Also  included  are  the  vehicle  position 
and  velocity  in  polar  and  Cartesian  form,  the  classical  orbital  elements, 
vehicle  altitude,  latitude  (geodetic),  longitude,  argument  of  latitude, 
period,  perigee  and  apogee  altitudes,  time  from  epoch  to  the  next  crossing 
of  the  ascending  node,  and  a  set  of  indeterminacy  free  elements.  Regard¬ 
less  of  the  options  requested,  this  output  block  is  printed.  If  requested, 
a  binary  ephemeris  tape  containing  the  Cartesian  position  and  velocity 
of  the  vehicle  versus  time  will  be  generated. 

Z.1.3.Z  Matrix  Update  Package  (UPDAT) 

The  matrix  update  package  will  update  a6x6,  7x7  or  8x8 
covariance  matrix  to  the  times  specified  in  the  At,  T  list.  The  six 
elements  of  the  vehicle  position  and  velocity,  the  uncertainties  in  drag, 
and  the  uncertainties  in  variation  in  drag  may  be  supplied  for  update.  The 
package  rotates  the  updated  covariance  matrix  to  the  orbit  plane  (U,  V,  W), 
Cartesian,  and  polar  equivalents  ,  and  outputs  the  uncertainties  and  correla¬ 
tions  in  the  elements  of  each  type.  These  are  labeled  as  sigma  and  rho  matrices  . 
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The  option  also  exists  (by  a  flag  on  the  JDC  card)  for  inserting  the  updated 

T 

covariance  matrix  to  punch  an  a  priori  A  A  matrix  on  cards  in  a  format 
suitable  for  input  to  the  ESP0DDC. 

Z.  2  EXPLANATION  FOR  SUBROUTINE  FLOW 

Figure  2-1  is  a  summary  block  diagram  illustrating  the  segments 
of  the  program,  an  outline  of  their  functions,  and  the  flow  among  them. 

2.2.1  Description  of  Subroutine  Flow 

The  subroutine  flow  given  for  ESPOD  presentation  departs  from 
the  conventional  block  diagram  description  of  a  program  in  that  it  names 
in  order  each  subroutine  called  by  the  program.  Principal  decisions  in 
the  process  are  also  indicated  and  important  calculations  are  noted.  Sub¬ 
routines  which  are  called  by  a  previous  subroutine  and  which  operate 
under  its  control  are  listed  indented  one  column  to  its  right.  Thus  the 
greatest  detail,  indented  many  times,  appears  most  often  at  the  right 
side  of  the  page,  while  the  main  flow  is  outlined  in  the  first  three  or 
four  columns  on  the  left  side  of  the  page.  Minor  and  utility  subroutines 
which  are  used  in  many  places  [for  example,  ASIN  (arc  sine)]  have  been 
omitted. 

2.2.2  Aids  to  Using  Subroutine  Flow 

Two  aids  are  provided  for  easier  interpretation  of  the  subroutine 
flow.  The  first  is  the  guide  flow  chart  which  summarizes  by  functional 
blocks  the  separate  detailed  processes.  Each  block  of  the  guide  flow 
chart  indicates  the  page(s)  and  lines  of  the  subroutine  flow  which  accom¬ 
plish  its  function.  The  guide  flow  precedes  the  detailed  flow.  The  second 
is  a  subroutine  listing  which  tells  what  each  subroutine  does.  The  listing 
is  complete  for  each  section  of  the  detailed  flow  and  follows  immediately 
after  it.  For  more  detail  concerning  the  subroutine,  see  Section  4. 

2.2.3  Application  of  Subroutine  Flow 

The  subroutine  flow  charts  are  given  in  three  sections  co r responding 
respectively  to  the  three  segments  of  the  program  ESP0D  (Section  2.3. 1.2), 
ESP0DDC  (Section  2.  3.  2.  2),  and  ESP0DEPH  (Section  2.  3.  3.  2).  The 
subroutine  flow  charts  have  the  following  uses: 
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Figure  2-1.  Summary  Block  Diagram 
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•  They  show  the  sequence  in  which  subroutines  are  used 

•  They  are  a  master  flow  chart  of  the  detailed  program 
functions 

•  They  are  an  index  to  the  subroutines 

•  They  are  a  guide  to  the  code  edit 

•  They  show  the  interdependence  of  the  subroutines 

•  They  show  parallel  structure  in  the  different  segments. 
2.2.4  Interpretation  of  Subroutine  Flow 

Each  subroutine  listed  in  the  flow  charts  is  indented  under  the 
subroutine  which  was  responsible  for  its  being  called  into  the  program. 

To  aid  in  recognizing  the  rank  of  each  subroutine  in  the  heirarchy,  verti¬ 
cal  lines  serve  as  indentation  markers.  Subroutines  of  equal  rank  are 
indented  equal  amounts. 

The  rank  of  decisions  made  within  the  program  will  be  defined 
by  the  indentation  line  which  is  nearest  the  left  side  of  the  symbol 
representing  the  decision.  For  example, 


FIT  calls  first  for  a  decision;  if  the  decision  is  yes,  then  FIT  calls 
REWT;  then  WRTCOM  which  calls  WEOFT;  FIT  then  calls  REWT. 

(If  decision  is  no,  the  flow  bypasses  to  REWT,  which  is  called  by  FIT.  ) 
The  decision  box  has  the  same  rank  as  REWT  and  WRTCOM,  and  they 
are  all  subservient  to  FIT. 
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Figure  2-5,  (lines  16  through  22,  page  2-27),  the  cycling  of  BOUNDS 
and  LEGS2  may  be  confusing.  In  this  section,  LEGS2  is  forming  the 
solution  for  the  different  scaling  of  BOUNDS,  that  is,  the  nominal  BOUNDS , 
BOUNDS/ 2,  BOUNDS/4,  BOUNDS/8.  The  first  time  LEGS2  is  called 
(line  1  1)  a  solution  using  the  nominal  bounds  if  formed.  The  solutions 
formed  by  LEGS2  during  its  succeeding  calls  (lines  17,  19  and  21)  use 
BOUNDS/ 2,  BOUNDS/4,  and  BOUNDS/ 8.  The  successive  solutions  are 
stored. 

2.  2.  5  Subroutine  Flow  Anomalies 

There  are  anomalies  in  the  flow  which  are  not  departures  from 
the  logic,  but  merely  instances  where  the  drafting  ground  rules  are 
impractical.  Since  they  are  few  in  number  they  can  be  individually 
des  cribed. 

The  first  anomaly  (in  Figure  2-3,  line  15  through  21,  page  2-13) 
represents  a  decision  with  five  alternatives.  The  triangular  decision 
symbol  has  its  left  vertex  touching  the  third  vertical  lines.  This  means 
that  all  alternatives  have  the  same  rank  as  subroutines  which  are  indented 
to  the  third  line.  For  example,  the  subroutine  MNELTC  and  its  sub¬ 
ordinate  decisions  and  subroutines  should  be  considered  to  be  moved 
one  indentation  space  to  the  left. 

The  second  anomaly  (Figure  2-5,  line  27,  page  2-25;  line  7, 
page2-28  ;Figure  2-7,  line  31,  page  2-37*  line  7,  page  2-29)  is  also  a 
triangle  calling  for  a  decision,  this  time  with  four  alternatives,  as  to 
which  atmosphere  model  is  to  be  used.  The  alternatives  all  have  the 
same  rank  as  the  subroutines  which  are  indented  as  far  as  the  line  which 
touches  the  left  vertex  of  the  decision  triangle.  Any  subroutines  called 
by  the  alternatives  subroutines  should  be  indented  one  more  space  to 
the  right. 

The  third  anomaly  (Figure  2-5,  lines  15  through  27,  page  2-26; 
lines  9  through  21, page  2-38)  is  an  array  of  boxes  which  represent 
decision  strings.  Regardless  of  the  path  taken,  all  decisions  are  con¬ 
sidered  the  same  rank  as  the  first  decision  which  is  represented  by  the 
large  diamond. 
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The  last  anomaly  (Figure  2-5,  line  28,  page  2-27)  is  a  decision  with 
five  alternatives.  Again,  all  are  of  rank  equal  to  the  subroutines  which 
are  indented  as  far  as  the  left  vertex  of  the  decision  triangle.  It  should 
be  noted  that  here  alternatives  5  and  6  continue  on  to  REWT,  alternative  7 
returns  to  SETIC  for  another  trip  through,  and  alternatives  8  and  9  pass 
through  a  decision  before  continuing. 
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2.  3  SUBROUTINE  FLOW  CHARTS 


2.  3.  1  ESPOD  Subroutine  Flow  Charts 
2.  3.  1.  1  ESPOD  Guide  Flow 


Figure  2-2.  ESP^D  Guide  Flow 
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Figure  2-2.  ESP0D  Guide  Flow  (Continued) 
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2-3.  ESP0D  Subroutine  Flow  Chart 


2-12 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

l6 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


DFRLM 


(Replace  1  "by  o ) 
PT0C 


K. 


Was  S -matrix  read? 


Is  this  a  differential 
correction? 


L.  Is  this  an  update? 


M.  Are  SPADATS  7 -card  mean 
elements  input? 


To  page  2-14,  line  5 

N.  Test  initial  conditions  input 
flag  (D  type) 


O.  Are  elements  from  SEAI? 

o.  (Compute  a  ,  a  ,  L  and  N) 

'  xn  yn 

P.  Osculating  elements? 

p.  (Compute  PQ,  eQ,  aQ,  qQ,  iQ,  nQ 


flo'  PN'  CN'  %) 


Yes 

(Compute  AT  and 
(Compute  predict  equations) 

CT0F  Q.  K-25  mean  elements? 

MSEF 


TXNIT 
TIME 


(Compute  aQ) 


Figure  2-3.  ESP0D  Subroutine  Flow  (Continued) 
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Figure  2-3.  ESP0D  Subroutine  Flow  (Continued) 
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Figure  2-3.  ESP0D  Subroutine  Flow  (Continued) 
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Figure  2-3.  ESPC^D  Subroutine  Flow  (Continued) 
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II.  Is  the  sentinel  block  found? 


Figure  2-3.  ESP0D  Subroutine  Flow  (Continued) 
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2.  3.  1.  3  Glossary  of  ESP Q>D  Subroutines 


Subroutine 

Functional  Description 

ADJUST 

Updates  right  ascension,  declination  measure¬ 
ments  to  equinox  of  integration 

ALSQRT 

Sorts  the  list  of  desired  sensors  alphanume r ically 

'‘AS  IN 

Arcsine  routine 

ASSIGN 

Assigns  variable  storage 

VATNQF 

Arctangent  routine 

BCDC^BS 

Reads  one  observation  card  from  input  tape 

CALCSG 

Calculates  and  stores  sigma  table  entries 

CKRSRT 

Checks  data  in  core;  is  in  reverse  time  sort 

CL  TIME 

Converts  an  input  time  into  its  Gregorian 
rep  re  sent  at  ion 

CTQP 

Converts  Cartesian  to  polar  coordinates 

DPRLM 

Data  initializing  (partial) 

DPRGS 

Driver  for  loading  observation  and  sensor 
cards 

DRIVER 

ESP0D  main  control 

ELMLQD 

Control  package  for  loading  orbital  elements 
from  next  tape 

ERRQR 

General  error  routine 

"exit 

Empties  output  buffers  and  goes  to  next 
case 

IDSUB 

Substitutes  in  the  register  for  the  sensor  ID 

IPRNT 

Prints  header  page 

ITMPCH 

Punches  the  initial  epoch  time  when  mean 
element  cards  are  input 

Designates  subroutines  used,  but  not  listed  in  flow  because  of  their 
routine  function 
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Subroutine 

Functional  Description 

JDCSRCH 

Searches  for  JDC  card 

’’'lines 

Ejects  paper  and  print  heading  at  top  of  page 

L0D0BS 

Control  package  for  loading  observation  cards 
from  input  tape 

LQJDSEN 

Control  package  for  loading  sensor  cards 
from  input  tape 

MQ)VE 

Moves  storage  in  block 

MNELTC 

Converts  SPADATS  mean  elements  to 

Carte  sian 

C5BSIN 

Moves  observations  from  buffer  to  permanent 
storage 

(?BSL(?D 

Loads  observations  from  tape  into  core 

C5BSSRT 

Sorts  observations  to  time  sequence 

0CT0R 

Included  in  B2  system 

>,CPIMQ)D 

Gets  positive  argument  of  an  angle  in  radians 
between  0  and  2tt 

PRCQJNS 

Prints  program  constants,  sensor  types,  and 
sensor  sigmas 

PRECES 

Sets  up  information  for  ADJUST 

PTQ>C 

Converts  polar  to  Cartesian  coordinates 

RDCQ>M 

Reads  common  block  from  observation 
tape 

READPR 

Reads  preliminary  data 

REFRAC 

Computes  tropospheric  refraction  correction 

RPLL0D 

Included  in  B2  system 

REWT 

Rewinds  observation  tape 

RTETYPE 

Included  in  B2  system 

Designates  subroutines  used,  but  not  listed  in  flow  because  of  their 
routine  function 
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Subroutine 

Functional  Description 

SDELET 

Moves  deletion  list  from  buffer  to  permanent 
stor  age 

SENIN 

Moves  sensor  data  from  buffer  to  permanent 
storage 

SENRD 

Reads  one  sensor  card  from  input  tape 

SENSCH 

Searches  sensor  table 

SETC0N 

Set  constants  for  program 

SETTAB 

Set  tables  concerning  solution  vector  in 
variable  storage 

SNQ>MIC 

Moves  nominal  conditions  from  buffer  to 
permanent  storage 

SNSGET 

Loads  sensor  information  from  tape 

STSMAT 

Moves  input  update  matrix  from  buffer  to 
permanent  storage 

SWTSN 

Monitors  weight  assignments,  refraction, 
precession,  in  observations 

TIME 

Converts  Y,  M,  D,  H,  M,  S  to  Julian  date: 
days  plus  fraction 

TINIT 

Sets  up  initial  time,  computes  a 

g° 

TMSEP 

Modulates  initial  times  and  sets  up 
permanent  storage 

UNPAKSN 

Unpacks  integers  in  two  cells  and  stores  them 
in  four  cells 

WEOFT 

Writes  ending  sentinel  block  on  observation 
tape 

WRTCQ>M 

Writes  CQMMQN  block  from  observation  tape 

WRTOBS 

Generates  observation  tape 

XSRCH 

Reads  99  card  images 

Designates  subroutines  used,  but  not  listed  in  flow  because  of  their 
routine  function 
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Z,  3.  Z  ESPGDDC  Subroutine  Flows 


Z.  3.  Z.  1  ESPQDDC  Guide  Flow 


Figure  Z-4.  ESP0DDC  Guide  Flow 


Z-Zl 


Figure  2-4.  ESP0DDC  Guide  Flow  (Continued) 
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Figure  2-4.  ESP0DDC  Guide  Flow  (Continued) 
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Figure  2-4. 


ESP0DDC  Guide  Flow  (Continued) 
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2.  3.  2.  2  ESP(?DDC  Subroutine  Flow 
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Figure  2-5.  ESP0DDC  Subroutine  Flow  Chart 


2-25 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

l6 

17 

l8 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


.gure 


2-5. 


ESP0DDC  Subroutine  Flow  (Continued) 
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Figure  2-5.  ESP0DDC  Subroutine  Flow  (Continued) 
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Figure  2-5.  ESPC^DDC  Subroutine  Flow  (Continued) 
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0.  Are  CAT1  variables  being 
solved  for? 


P.  Are  biases  (CAT2)  being 
solved  for? 


Q.  Rejected? 


R.  Looped  6  times? 

(One  time  each  for  R,  A,  E,  R 
Qf,  and  6) 


Figure  2-5.  ESP^DDC  Subroutine  Flow  (Continued) 
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2.  3.  2.  3  Glossary  of  ESPQDDC  Subroutines 


Subroutine 

Functional  Description 

APPLY 

Applies  DC  solution  vector  and  prints  results 

'"AS  IN 

Arcsine  routine 

ATM59 

Computes  density  of  a  static  atmosphere 
( ARDC  1959  Model) 

ATMQS 

Driver  for  density  calculation 

"atnqf 

Arctangent  routine 

BODY 

Computes  acceleration  due  to  sun  and  moon 

BOUNDS 

Scales  bounds  with  given  scale  factor 

COESA 

Computes  density  for  a  static  or  dynamic 
atmosphere  (U.S.  Standard  1962) 

cormat 

Computes  correlation  (a  and  p)  matrix 

DAUX 

Driver  for  evaluating  acceleration  in 
integration 

"don 

Computes  modifier  used  in  simulated  drag 
var  iation 

"dot 

Computes  scalar  product 

DRAG 

Computes  drag  perturbations 

DRDP 

Computes  partial  of  observations  w.  r.  t  Category  1 
type  variables,  i.e.,  a,  j  ,  p,  A,  r,  v,  drag 

DYNAT 

Computes  density  of  a  dynamic  atmosphere 
(Paetzold) 

FIT 

Logic  control  for  DC  options 

GPERT 

Computes  acceleration  due  to  Earth's 
potential 

INTEG 

Driver  for  DC  package 

INTPL 

Leads  ephemeris  tape 

Denotes  subroutines  used,  but  not  listed  in  flow  because  of  their  routine 
function 
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Subroutine 

Functional  Description 

JCS 

Sets  up  two  matrices  of  C’s  and  S's  for  GPERT 

LEGS1 

T  T 

Forms  A  A  and  A  B  given  A  and  B 

LEGS2 

Least  squares  package  solves  Ax  =  B 

’■'lines 

Ejects  page  and  prints  heading  at  top  of  page 

MAGN 

2 

Computes  magnitude  and  (magnitude)  of 

3-D  vector 

MATPCH 

T  (  T  1 

Punches  A  A  and  ^A  A  J  at  the  end  of  each 

iteration  in  a  form  suitable  for  input  to  ESPOD 

MATPT 

Prints  lower  triangular  matrix 

MGVEVS 

Moves  observation  set  from  variable  to 
working  storage 

MGVMAT 

Moves  a  triangular  matrix  from  A  storage  to 

B  storage 

"mult 

Multiplies  a  3  x  3  matrix  by  a  succession  of 

1x3  vectors 

NPRPCH 

Punches  the  IC0ND,  BISEST,  BNDS  values  at 
the  end  of  each  iteration,  in  a  form  suitable 
for  input  to  ESPC^D 

"GUTER 

Computes  product  of  column  and  row  vector 

PARSET 

Initialize  station  data  for  partial  derivative 
package 

PARGUT 

Computes  residuals  for  residuals  print 

PASTGR 

Set  up  an  asterisk  or  double  asterisk  for 
punching  to  identify  a  deleted  observation 

PHEAD 

Prints  residuals  header 

"'PIMGD 

Gets  positive  argument  of  an  angle  in  radians 
between  0  and  2tt 

PGLY 

Evaluates  nth  order  polynomial 

Denotes  subroutines  used,  but  not  listed  in  flow  because  of  their  routine 
function 
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Subrout  ine 

Functional  Description 

PATENT 

Driver  for  geopotential  model 

PPRINT 

Prints  residuals 

PRELIM 

Makes  preliminary  calculations  in  partial 
package 

PRSSTB 

Computes  and  prints  mean,  RMS,  and  number 
for  residuals  by  sensor  and  type 

PTQ>C 

Converts  polar  to  Cartesian  coordinates 

PUPB 

Computes  partial  of  observation  w.  r.  t. 

Category  2  variables,  i.  e.  ,  t^,  <J>^, 

RADR 

Computes  residuals;  driver  for  partials 
package 

RDCQ>M 

Reads  C(JMM(J)N  block  from  observation  tape 

REJECT 

Monitors  the  acceptance  or  rejection  of  an 
observation 

REWT 

Rewind  observation  tape 

VRMAX 

Compare  residual  quantities  with  table  of 
maximum  values 

VR0TRU 

Rotates  a  set  of  vectors  from  mean  1950.  0 
to  true  of  date 

RPRESS 

Computes  acceleration  due  to  radiation  pressure 

SELECT 

Select  next  observation  time 

SETIC 

Initialize  integration  list 

SKIPT 

Skips  C(JMM(JN  block  of  observation  tape 
after  each  iteration 

SSTB 

Accumulates  sum,  sum  of  squares,  and  number 
of  residuals  by  sensor  and  data  type 

TPRLM 

Sets  up  data  for  integration 

TRAJ 

Driver  for  integration  program 

UBRED 

Reads  observations  into  variable  storage 

Denotes  subroutines  used,  but  not  listed  in  flow  because  of  their  routine 
function 
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Subroutine 

Functional  Description 

UBSGET 

Gets  next  observation  time  from  variable 
storage 

VAREQ 

Computes  second  derivatives  of  variational 
equations 

VPERT 

Initializes  variational  equations 

WEC5FT 

Writes  an  ending  sentinel  block  on  observation 
tape 

WRTCGM 

Writes  C(J)MM(J)N  block  from  observation  tape 

XCROSS 

Performs  the  cross  product  of  two  3-D 
vectors 

'yhadec 

Compute  Y  vector  when  range,  hour  angle, 
and  declination  are  given 

*YRAE 

Compute  Y  vector  when  range,  azimuth,  and 
elevation  are  given 

Denotes  subroutines  used,  but  not  listed  in  flow  because  of  their  routine 
function. 
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2  3.  3  ESP(?DEPH  Subroutine  Flow  Charts 


2.  3.  3.  1  ESPQDEPH  Guide  Flow 


Figure  2-6.  ESP0UEPH  Guide  Flow 
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Figure  2-6.  ESP^DEPH  Guide  Flow  (Continued) 
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Figure  2-6.  ESPj6DEPH  Guide  Flow  (Continued) 
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2-7.  ESP0DEPH  Subroutine  Flow  Chart 
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I  igure  <--7.  ESP0DEPH  Subroutine  Flow  (Continued) 
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figure  2-7.  ESP0DEPH  Subroutine  Flow  (Continued) 
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0.  Covariance  matrix  update? 
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Figure  2-7.  ESP0DEPH  Subroutine  Flow  (Continued) 


line  9 


2-40 


2,  3,  3.  3  Glossary  of  ESP(?DEPH  Subroutines 


Subroutine 

Functional  Description 

*ASIN 

Arscine  routine 

ATM59 

Computes  density  of  static  atmosphere 
( ARDC  1959  Model) 

ATM0S 

Driver  for  density  calculation 

"‘atnqf 

Arctangent  routine 

BODY 

Computes  acceleration  due  to  sun  and  moon 

CORMAT 

Computes  correlation  (a  and  p)  matrix 

COESA 

Computes  density  of  a  static  or  dynamic 
atmosphere  (U.  S  Standard  1962) 

CTOP 

Converts  Cartesian  to  polar 

DATE 

Converts  time  in  minutes  from  0  hours  day 
of  epoch  to  calendar  time 

DAUX 

Driver  for  evaluating  acceleration  in 
integration 

;'don 

Calculates  modifier  used  in  simulated 
drag  variation 

"dot 

Computes  scalar  product 

DRAG 

Computes  drag  perturbations 

DYNAT 

Computes  density  of  a  dynamic  atmosphere 
(Paetzold) 

GPERT 

Computes  acceleration  due  to  earth  potential 

HUM  AH 

Converts  vector  or  matrix  from  machine  units 
to  human  units  or  vice  versa 

*INTPL 

Reads  ephemeris  tape 

JCS 

Sets  up  two  matrices  C's  and  S’s  for  GPERT 

LEGS2 

T  T 

Least  squares  package,  solves  A  Ax  =  A  b 

Denotes  subroutines  used,  but  not  included  in  flow  because  of  their 
routine  function 
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Subrout  ine 

Functional  Description 

MABAT 

T 

Multiplies  ABA  where  B  is  lower  triangular 
matrix 

MAGN 

Computes  magnitude  and  (magnitude)^  of 

3-D  vector 

MATPT 

Prints  an  N  x  N  lower  triangular  matrix 

MLTUT 

Converts  lower  triangular  matrix  to  upper 
triangular  matrix 

"mult 

Multiplies  a  3  x  3  matrix  by  a  succession  of 

1  x  3  vectors 

QUTER 

Computes  product  of  a  column  and  row  vector 

QMJTPT 

Punches  sets  of  x^,  y  ,  z  ,  tD> 

'  PIMGD 

Gets  positive  argument  of  an  angle  in  radians 
between  0  and  2  tt 

PLTEL 

Converts  polar  to  elements  (indeterminacy 
free  and  classical) 

PQJLY 

Evaluates  nth  order  polynomial 

PQPPC 

Sets  up  rotation  from  Cartesian  to  orbit  plane 
coo  rdinate  s 

PQSTPR 

Driver  for  postprocessor  (ESPQDEPH) 

PATENT 

Driver  for  geopotential  model 

PPLPC 

Computes  partial  of  ADBARV  w.  r.  t.  Cartesian 

PRAXIS 

Calculates  yaw,  pitch  and  roll  rotations  of 
the  principal  axes  of  the  error  ellipsoid 
from  U,  V,  W  coordinate  axis 

RDXYZ 

Reads  x^,  y  ,  z  ,  tj  from  TTY  generated 
cards 

REWT 

Rewinds  observation  tape 

'rqtru 

Rotates  a  set  of  vectors  from  mean  of 

1950.  0  to  true  of  date 

Denotes  subroutines  used,  but  not  included  in  flow  because  of  their 
routine  function 
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Subroutine 

Functional  Description 

RPRESS 

Computes  accelerations  due  to  radiation 
pressure 

SELECT 

Select  next  time  to  update  to 

SETIC 

Initialize  integration  list 

TCQSMP 

Compare  |  (x)  -  x,  (y)  -  y,  (z)  -  z  |  with  € 

TGDJD 

Computes  Julian  date  to  calendar  date  from 
integration  time  and  prints 

TPRLM 

Sets  up  data  for  integration 

TPRNT 

Prints  trajectory  print 

TRAJ 

Integrates  the  equations  of  motions  and 
variational  equations  of  motions  and  varia¬ 
tional  equations  to  a  specified  time 

TTAPE 

Generates  ephemeris  tape  (x,  y,  z,  x,  y,  z, 
vs  T) 

TWRAP 

Wraps  up  ephemeris  tape  generated  by  TTAPE 

UPDATE 

Driver  for  covariance  matrix  update  logic 

VAREQ 

Computes  second  derivatives  of  variational 
equation 

VPERT 

Initializes  variational  equations 

*XCR<?SS 

Performs  the  cross  product  of  two  3-D  vectors 

Denotes  subroutines  used,  but  not  included  in  flow  because  of  their 
routine  function 
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3.  ESPOD  CONVENTIONS 


This  section  describes  the  arrangements  of  arrays  and  variables  in 
core  storage  and  the  magnetic  tape  formats.  In  addition,  the  conventions 
used  for  handling  the  solution  vector  and  the  ESPOD  units  are  included. 

3.  1  VARIABLE  STORAGE 

Arrays  (vectors,  matrices,  etc.)  associated  with  a  differential 
correction  program  will  vary  in  length  depending  on  the  size  of  the  system 
of  equations  being  solved.  This  creates  a  storage  allocation  problem  for 
the  programmer.  One  method  of  solving  this  problem  is  to  set  aside  blocks 
of  program  storage  of  fixed  dimension,  each  large  enough  to  handle  the 
maximum  case.  This  method  tends  to  be  inefficient  in  the  use  of  program 
storage  since  only  a  small  percentage  of  each  fixed  block  array  will  be 
used  on  the  majority  of  runs.  A  second  method  is  to  assign,  at  execution 
time,  each  of  these  arrays  a  starting  position  in  core  and  to  give  the  array 
only  the  number  of  cells  it  needs  on  this  run.  This  is  the  approach  that  has 
been  adopted  within  ESPOD. 

A  block  of  storage  of  dimension  4700  has  been  saved  at  the  end  of 
COMMON  for  the  purpose  of  storing  arrays  such  as  the  solution  vector, 
the  current  estimates  of  parameters  being  solved,  the  normal  matrix,  the 
normal  matrix  inverse,  the  bounds  vector,  the  scaling  vector,  the  master 
sensor  table,  and  the  observations  to  be  processed  by  the  differential 
correction  program.  The  observation  block  is  the  last  block  in  variable 
storage.  The  advantage  is  that  a  minimum  of  128  words  is  all  that  is 
required  (i.e.,  enough  core  to  read  one  block  from  the  7  TAPE).  However, 
if  more  core  is  available  the  program  will  load  as  many  observation  blocks 
from  the  7  TAPE  as  is  permissible  on  a  given  read  cycle.  This  read  cycle 
will  continue  until  all  observations  on  the  7  TAPE  have  been  processed. 

3.1.1  Definition 

This  4700  cell  block  in  ESPOD  storage  has  been  labeled  by  two  names 
VSTR  (floating  point  variable  storage)  and  IVSTR  (fixed  point  variable 
storage).  The  two  names  have  been  given  so  that  the  storage  block  can 
contain  both  fixed  and  floating  point  arrays  .  Starting  locations  for  particular 
arrays  in  variable  storage  are  defined  by  a  set  of  indices  N1 ,  N2,  N3 — which 
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are  computed  at  run  time  by  subroutine  ASSIGN.  For  example,  VSTR 
(N3)  defines  the  first  element  of  a  floating  point  array,  while  IVSTR  (N2) 
defines  the  starting  location  of  a  fixed  point  array.  In  Section  4,  subroutine 
description,  arrays  in  variable  storage  will  be  defined  either  by  their 
corresponding  index  (XX)  or  by  the  name  VSTR  (XX)  or  IVSTR  (XX). 

3.1.2  Indices  of  Stored  Arrays 

The  acceptable  indices  currently  in  ESPOD  and  the  arrays  they 
define  are  given  below. 

To  aid  in  the  definition  of  these  arrays,  let 

n  =  Total  number  of  parameters  being  solved  for 

m  =  Total  number  of  Category  1  variables  (a,  6,  p,  A,  R,  v, 
CDA/2m,  K) 

s  =  Number  of  sensors  whose  data  is  involved  in  the 
differential  correction  process 

3.  1  .  2.  1  List  of  Indices 


Name 

Mode  of  Array 

Array  Definition  and  Dimension 

1 . 

NIDP 

F  ixed 

Defines  parameters  of  Category  1  to  be 
solved  for  (m  cells) 

2. 

NPRCD 

Fixed 

Defines  parameters  of  Category  2  to  be 
solved  for  (n  -  m  cells) 

3. 

NPBIS 

Floating 

Defines  the  current  estimates  of  the 

Category  2  variables  to  be  solved  for. 
This  array  has  a  1:1  correspondence 
with  elements  in  the  NPRCD  array 
(n  -  m  cells) 


4.  NAROW 


Floating  Defines  the  array  where  one  row  of  the 

augmented  matrix  (A,  B)  is  stored 
(n  +  1  cells) 


5.  NBDNS 


Floating  Defines  the  set  of  bounds  to  be  used  in 

the  differential  correction  (n  cells) 


6.  NPAR  Floating  Defines  the  current  estimates  of  the 

total  (Category  1  plus  Category  2)  set  of 
variables  being  solved  for.  This  array 
is  2  n  cells  long.  The  first  n  cells 
contain  the  set  in  internal  units  and  the 
second  n  cells  contain  the  set  in  external 
units  .  (  2*n  cells) 
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Name 

7.  NDPARf 
NDPAR2 
NDPAR3 
NDPAR4. 


8.  NSC  ALE 


Mode  of  Arr 


ay 


9.  NAT  A 


10.  NR 


11.  NIDLED 


12.  NSTAT 

13.  NUBS 

14.  NRTMP 

15.  NSSTB 

16.  NSMAT 


Floating 

Floating 


Floating 


Floating 


Fixed 


Floating 

Floating 

Floating 

Floating 

Floating 


Array  Definition  and  Dimension 

Define  four  arrays  where,  on  each 
converging  pass,  the  four  solution 
vectors  are  maintained  (4*n  cells) 

Vector  of  scaling  factors  which  are 
used  to  convert  the  solution  vector,  the 
current  estimate  vector,  the  normal 
matrix  and  the  inverse  of  the  normal 
matrix  from  either  internal  units  to 
external  units  or  external  units  to 
internal  units  (n  cells) 


Defines  array  containing  the  augmented 
matrix  (ATA,  ATB)  as  an  upper  triangular 
matrix  stored  by  rows  and  the  scaler 
BtB  in  the  last  cell  of  the  array. 

(n  +  1)  *  (n  +  2)  ceUsj 


Defines  array  containing  the  inverse 
normal  matrix  (A^A)’  stored  row  wise 
as  a  lower  triangular  matrix.  The  sub¬ 
routine  LEGS2  also  uses  portions  of  this 
array  for  temporary  storage 
jjn  +  2)*(n  +  3)  _  jJ 

Defines  array  containing  observation 
deletion  table  (i.e.,  inputs  of  the  DELET 
card).  The  dimension  is  dependent  on 
number  of  entries  given  by  DELET  cards 
(2*  count  of  lists  deleted). 

Master  sensor  table  (15*S) 

Observation  table  (no  dimension,  occupies 
remainder  of  available  table) 


matrices  , 
cells 


Used  for  intermediate  handling  of  (A^A) 
and  (A^A) "  ^ 

+  1) 

Array  for  summing  residuals,  residuals 
squared,  and  total  residual  number  by 
sensor  and  type.  ( 1  3*S  cells) 

Array  containing  a  priori  S  matrix  as 
an  upper  triangular  matrix  stored  by 
rows 

teU!  cells 
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3.  2  INTERNAL  HANDLING  OF  SOLUTION  VECTOR 


3.2.1  Category  1  Variables 

Category  1  variables  are  composed  of  the  following  eight  param¬ 
eters:  a,  6,  p,  A,  R,  v,  C^A/2m,  and  K  (drag  variation).  ESPOD  is 
capable  of  solving  for  this  set  of  parameters  or  for  any  subset  of  these 
parameters.  The  CAT1  input  card  provides  the  analyst  the  oppor¬ 
tunity  to  select  a  set  of  these  parameters  for  solution.  The  program  must 
then  be  able  to  keep  track  of  this  set.  This  is  done  in  two  steps:  first, 
identifying  numbers  are  assigned  to  each  Category  1  parameter  as 
shown  in  Table  3-1  below. 

Table  3-1.  Category  1  Identifiers 


Parameter 

Type 


Symbol 


Variable 


1 

Z 

3 

4 

5 

6 

7 

8 


a 

6 

P 

A 

R 

V 

C^A/  2m 
K 


Right  Ascension 

Declinat  ion 

Flight  Path  Angle 

Azimuth  of  Velocity  Vector 

Radius 

Veloc  ity 

Drag  Parameter 

Drag  Parameter  Variation 


Second,  the  IVSTR  (NIDP)  array  consists  of  identifing  numbers  for  the 
Category  1  variables  to  be  solved.  For  example,  if  an  analyst  requested 
a,  8,  (3,  A,  R,  v  to  be  solved  for,  the  IVSTR  (NIDP)  array  would  be: 

IVSTR  (NIDP)  =  1 
IVSTR  (NIDP  +  1)  =  2 
IVSTR  (NIDP  +  2)  =  3 
IVSTR  (NIDP  +  3)  =  4 
IVSTR  (NIDP+4)  =  5 
IVSTR  (NIDP+5)  =  6 

3.2.2  Category  2  Variables 

Category  2  variables  are  composed  of  the  following  ten  parameters: 
Rb,  Ab,  Er>  Rb,  HAb,  Db>  tb,  0b>  \b,  hb.  Category  2  parameters  differ 
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from  Category  1  parameters  in  that  they  are  sensor  dependent.  Through 
the  CAT2  input  cards  the  analyst  is  permitted  to  select,  by  sensor 
number,  those  Category  2  parameters  to  be  included  in  the  differential 
correction  process.  The  fact  that  Category  2  variables  are  sensor  de¬ 
pendent  creates  a  bookkeeping  problem  for  the  program.  It  becomes 
necessary  to  know  what  type  of  Category  2  parameter  is  being  solved, 
what  sensor  is  involved,  and  where  this  parameter  will  be  located  in  the 
solution  vector.  (All  Category  2  variables  come  after  Category  1  variables 
in  the  solution  vector)  .  This  bookkeeping  is  accomplished  through  two 
arrays  in  variable  storage  and  a  single  word  (called  code  word)  found  in 
the  master  sensor  table  (one  for  each  sensor  in  the  table).  The  format 
and  use  of  these  arrays  and  code  words  are  described  below.  First, 
identifying  numbers  are  assigned  to  each  of  the  Category  2  variables  as 
shown  in  Table  3-II  below: 

Table  3-II.  Category  2  Identifiers 


Bias  Type 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


Symbol 

Rb 

\ 

Eb 

K 

HAb 

D, 


b 

*b 


Variable 

Range  bias 
Azimuth  bias 
Elevation  bias 
Range  rate  bias 
Hour  angle  bias 
Declination  bias 
Time  bias 

Sensor  latitude  bias 
Sensor  longitude  bias 
Sensor  altitude  bias 


Each  element  of  the  IVSTR  (NPRCD)  array  in  fixed  point  variable 
storage  contains  two  pieces  of  information  about  a  Category  2  variable: 

•  What  type  of  bias  it  is  (T) 

•  What  place  it  occupies  in  the  solution  vector  (P) 
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This  information  is  contained  in  the  IVSTR  (NPRCD)  array  as  a  single 
integer  of  the  form 

T  *  100  +  P 

The  code  word  given  in  the  master  sensor  table  for  each  sensor  tells 
where  to  look  in  the  IVSTR  (NPRCD)  array  for  additional  information  con¬ 
cerning  Category  2  variables  being  solved  for  the  sensor.  If  the  code 
word  of  a  sensor  equals  zero,  then  no  Category  2  variables  are  being  con¬ 
sidered  for  the  sensor.  If  the  code  word  of  a  sensor  is  nonzero,  it  has 
the  following  form: 

A  *  100  +  B 

A  and  B  refer  to  the  starting  and  stopping  points  in  the  IVSTR  (NPRCD) 
array  where  the  program  can  find  the  numbers  identifying  Category  Z 
variables  which  are  being  solved  for  this  sensor. 

Finally,  the  VSTR  (NPBIS)  array  contains  in  floating  point  form, 
the  current  estimates  of  the  Category  2  variables  defined  in  the  IVSTR 
(NPRCD)  array.  Thus,  A  and  B  can  also  be  used  to  locate  the  current 
estimates  of  Category  2  variables  of  a  sensor.  The  VSTR  (NPBIS)  array 
is  updated  after  each  iteration  of  the  differential  correction. 

3.2.3  Examples 

Tables  3  -  III  and  3-IV  were  prepared  assuming  that  observations 
from  three  sensors,  SI,  S2,  and  S3,  were  being  used  in  a  differential 
correction,  and  that  the  solution  for  Category  1  variables  a,  6,  (3,  A, 

R,  v,  and  Category  2  variables  S2-R^,  A^,  E^,  and  S3-t^,  ,  h^ 

was  desired.  Table  3  -  III  gives  the  form  of  the  solution  vector  and 
Table  3-IV  gives  the  contents  of  the  IVSTR  (NIDP),  IVSTR  (NPRCD),  and 
VSTR  (NPBIS)  arrays. 

3.  3  OBSERVATION  NUMBERING  SYSTEM 

ESPOD  programs  maintain  an  internal  numbering  system  for  the 
observations  being  processed.  This  system  becomes  particularly  useful 
in  the  computations  of  partial  derivatives  of  observations  with  respect  to 
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Table  3 -III.  Example  of  Solution  Vector 


Variable  Place 
in  Solution  Vector 

Symbol 

Variable  Name 

i 

a 

Right  ascension 

2 

6 

Declination 

3 

P 

Flight  path  angle 

4 

A 

Azimuth  of  velocity  vector 

5 

R 

Radius 

6 

V 

Velocity 

7 

S2,  Rb 

Range  bias  of  sensor  S2 

8 

S2,  Ab 

Azimuth  bias  of  sensor  S2 

9 

S2,  E 

Elevation  bias  of  sensor  SZ 

10 

S3.«b 

Time  bias  of  sensor  S3 

11 

33,  * 

Latitude  bias  of  sensor  S3 

12 

S3,  ,b 

Longitude  bias  of  sensor  S3 

13 

S3,  Hb 

Altitude  bias  of  sensor  S3 

Table  3-IV.  Exampl 

e  of  Internal  Storage,  Defining  Solution  V< 

Array 

Element  Contents  of 

No.  IVSTR(NIDP) 

Contents  of 
IVSTR(NPRCD) 

Contents  of 
VSTR(NPBIS) 

i 

1 

107 

Current  estimate 

of 

S2,  Rb 

2 

2 

208 

Current  estimate 

of 

S2,  Ab 

3 

3 

309 

Current  estimate 

of 

S2,  E 

4 

4 

710 

Current  estimate 

of 

S3,  tb 

5 

5 

811 

Current  estimate 

of 

S3,  4>b 

6 

6 

912 

Current  estimate 

of 

S3,,b 

7 

1013 

Current  estimate 

of 

S3,hb 

51  code 

52  code 

53  code 

word  =  0 
word  =  103 
word  =  407 
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parameters  in  the  solution  vector. 

The  numbering  system  is: 

Type 

1 
2 

3 

4 

5 

6 

3.4  UNITS  OF  ESPOD  PARAMETERS 


(See  subroutine  DRDP  and  PUPB). 


Observation 

Range 
Azimuth 
Elevation 
Range  rate 
Hour  angle 
Declination 


The  internal  and  external  dimensional  units  are  given  in  Table  3-V. 


Table  3-V.  ESPOD  Units 


Quantity 


Internal  Units 


External  Units 


Distance 
V  elocity 

Angular  Measure 

Area 

Mas  s 


Earth  radii  ( e  .  r  . ) 
Earth  radii  per  minute 
Radians 

.2 

(Meters) 

Kilogram 


Kilometer 

Kilometer  per  second 
Degrees 

2 

(Meters  ) 

Kilogram 


3.5  ALLOTMENT  OF  CORE  STORAGE 


3.5.1  Map  of  Core 


OCTAL 


EXECM0DI  and  EXECM0D2 


Input  Buffer  Storage 
Constants  Blocks 
Initial  Input  Block 

Variable  Storage  Assignment  Numbers 
Buffer  Block  for  Intermediate  Tape  Handling 
Temporary  Storage 

ESP0DDC  and  ESP0DEPH  Working  Storage 
Variable  Storage  (Fixed  and  Floating  Point) 

ESP0D  Driver 

ESP0D 

ESP0DDC 

ESP0DEPH 

BMEWS 


0 

1  5524 


33661 

34161 

63234 


Figure  3-1.  Map  of  Core 
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3.  5.  2  Variables  and  Arrays  in  Storage 


The  following  list  includes: 

•  Name  of  item 

•  Relative  location  from  C0MM0N  storage  base 
address  YYYY 

•  Dimension  if  item  is  an  array 

•  Definition  of  item 

The  list  is  ordered  sequentially  by  relative  location. 


Name 

2000 

DIM 

Definition  of  Variable  or  Array 

CARBUF 

1 

128 

Input  buffer 

CQ>NVR 

129 

Conditional  start  flag 

CDRUNB 

130 

Input  buffer  counter 

FIRSTFL 

131 

Flag  to  indicate  ’’first  case" 

C  WE 

141 

Earth’s  rotational  rate  (real 

1  min) 

CELLIP 

142 

Ellipticity  of  the  Earth 

CGNQ>M 

143 

Gravitational  constant 

CMU 

144 

3  2 

GM  Earth  ( e  .  r  .  /  min  ) 

CGMR 

145 

7 

GM  ratios  (E,  M,  S,  V,  M,  E-M,  J) 

BFLAGS 

152 

7 

Flags  to  indicate  bodies  to  be 
considered 

CJ 

159 

11 

J2 ’  J3 ’  J4’  ’  J12 

CJNM 

170 

36 

6x6  array  containing  Jm  below 
diagonal,  Jn  n  on  the  diagonal  and 
\  n  m  at>ove  the  diagonal 

CLAMNN 

206 

5 

Xn,n  n  =  2.  6 

CDAD2M 

211 

CdA/  2m 

CK 

212 

K  for  drag  variation 

CKSLCT 

213 

Selector  for  K,  =0.,  1.,  or  2, 
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Name 

2000 

DIM 

CDRAGM 

214 

CFTER 

215 

CKMFT 

216 

CKMER 

217 

CDTER 

218 

CMTER 

219 

CERAU 

220 

CDEG 

221 

CFTNM 

222 

CNMER 

223 

CYTERM 

224 

CSIG 

225 

120 

CDA'Y  MN 

345 

12 

CAPF10 

357 

91 

CPI 

448 

C2PI 

449  * 

CAE 

450 

CBE 

451 

CKRMS 

452 

CGMLST 

453 

CFTEPS 

454 

CJD50 

455 

CBGUND 

456 

18 

Definition  of  Variable  or  Array 

Selects  atmosphere  model  to  be 
used 

Conversion  from  Earth  radii  to  ft 

Conversion  from  ft  to  km 

Conversion  from  Earth  radii  to  km 

Conversion  from  Earth  radii  to  km 

Conversion  from  Earth  radii  to 
meter  s 

Conversion  from  A  U.  to  Earth 
radii 

Conversion  from  radians  to 
degrees 

Conversion  from  n  mi  to  ft 

Conversion  from  Earth  radii  to 
n  mi 

Conversion  from  e.  r./mm  to 
km  /  sec 

60  sets  of  sensor  sigmas  (packed) 
Number  days  in  month 
30  sets  t,  Ap,  Fjq 

TT 

Ztt 

a 

e 

b 

e 

N  for  N(RMS)  deletion 
Dimension  of  CQMMQN 
e  for  convergence  criterion 
Julian  date  January  0,  1950 
Nominal  set  of  bounds 
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Name 

ZOOO 

DIM 

KQKJT 

474 

IQUT 

475 

KIN 

476 

MT 

477 

NQHJT 

478 

CHMAX 

479 

CHMIN 

480 

CYMIN 

481 

CER 

48Z 

NRRR 

483 

TSTEP 

484 

CSTYPE 

485 

1Z0 

CP 

605 

16 

CLDSTR 

641 

TEPQCH 

64Z 

TJDATE 

643 

DYEAR 

644 

DMNTH 

645 

DDAY 

646 

DHQUR 

647 

DMIN 

648 

DSEC 

649 

DTYPE 

650 

TALFAG 

651 

DNUT 

65Z 

Definition  of  Variable  or  Arra\ 

Output  tape  number 

Input  tape  number 

Observation  tape  number 

Ephemeris  tape  number 

Maximum  step  size 

Minimum  step  size 

Parameter  for  variable  step 
integration 

Parameter  for  variable  step 
integration 

Ratio  of  Cowell  to  Runge-Kutta 
step  size 

Nominal  step  size 

Sensor  types  for  a,  Ng  and  N 

4x4  array  of  polynomial  coeff. 
for  refraction 

Cold-start,  non-cold- start  flag 

Epoch  time,  min  from  midnight 

Julian  date  of  midnight,  epoch  day 

Epoch  year 

Epoch  month 

Epoch  day 

Epoch  hour 

Epoch  min 

Epoch  sec 

Initial  conditions  type 
a  for  midnight  day  of  epoch 
Nutation  correction 
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Name 

2000 

DIM 

DSDAY 

653 

DSFDAY 

654 

DBASE 

655 

DNREV 

656 

6 

DELTT 

662 

17 

DVEHN 

679 

3 

DHEAD 

682 

2 

PREFLG 

684 

10 

DCFLG 

694 

10 

PSTFLG 

704 

10 

DTARG 

714 

20 

SEQ 

734 

DFL 

735 

HEADER 

736 

8 

FGITIM 

744 

FGICQN 

745 

FGICTY 

746 

FGELEM 

747 

FGCAT1 

748 

FGCAT2 

749 

FGBNDS 

750 

FGDELE 

751 

NGEPGC 

752 

DLPSI 

753 

Definition  of  Variable  or  Array 

Epoch  day,  days  from  beginning 
of  year 

Epoch  time,  fraction  of  day 

Number  days  from  1950  to  day 
of  epoch 

Control  cells  for  seven-card 
input 

Sets  of  At,  t 

Vehicle  number  and  name  (BCD) 

Header  from  JDC  card 

Preprocessor  control  flags 

DC  package  control  flags 

Post-processor  control  flags 

Temporary  location  for  DAC  or 
PRDCT  card  image 

Sequence  number  from  DAC  cards 

Flag  for  dynamic  atmosphere 

Contents  of  REM  card 

Flag  to  indicate  ITIME  card  read 

Flag  to  indicate  ICQND  card  read 

Flag  to  indicate  ICTYPE  car d  read 

Flag  to  indicate  element  cards  read 

Flag  to  indicate  CAT1  card  read 

Flag  to  indicate  CAT2  cards  read 

Flag  to  indicate  BNDS  cards  read 

Flag  to  indicate  DELETE  cards 
read 

Flag  to  indicate  epoch  not 
established 
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Name 

ZOOO 

DIM 

DLEPS 

754 

SNEPS 

755 

CSEPS 

756 

DTMAX 

757 

TNQMX 

758 

6 

TNQMP 

764 

6 

TMNEL 

770 

10 

TCLSEL 

780 

8 

ZQNAL 

788 

1 1 

SECT 

799 

5 

TESS 

804 

14 

DAREA 

818 

DMASS 

819 

CSOLC 

820 

C  LIGHT 

821 

FGAUX 

822 

NPR 

850 

NDPR 

851 

NICPR 

852 

NITER 

853 

NMBER 

854 

Definition  of  Variable  or  Array 

A€ 
sin  € 

COS  € 

tmax  for  DC  to  check  for  bad 
observation  times 

Initial  Cartesian  coordinates 
(x,  y,  z,  x,  y,  z) 

Initial  spherical  coordinates 
(a,  6,  (3,  A,  R,  v) 

Initial  seven-card  element  sets 

Classical  elements  (a,  e,  i,ft,  go,  M) 

Flags  for  zonal  harmonics 

Flags  for  sectoral  harmonics 

Flags  for  tesseral  harmonics 

Area  of  spacecraft 

Mass  of  spacecraft  kg 

Solar  Constant  S  watts /irC 

Speed  of  light  e  .  r  .  /  min 

r=  0  No  S YT  PES  in  DBUFS 

]  =  N  No  sets  of  STYPE  entries 
L  in  DBUFS 

Total  number  of  parameters  to 
solve  for 

Total  number  of  CAT1  variables 
to  solve  for 

Total  number  of  spherical 
coordinates  to  solve  for 

Maximum  number  of  iterations 

Number  of  observations 
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Name 

NDTCT 

NITCT 

NIDENT 

N1 

NZ 

N3 

FLVE 

SKIP 

NIDP 

NPRCD 

NPBIS 

NARQ1W 

NBDNS 

NPAR 

NDPAR1 

NDPAR2 

NDPAR3 

NDPAR4 

NSC ALE 

NATA 

NR 

NIDLED 

NRTMP 

NSSTB 

NSMAT 


ZOOO 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 


DIM  Definition  of  Variable  or  Array 

Counter  for  At,  t  table 
Iteration  counter 

Number  of  entries  in  NIDLED  list 


\  Counters  for  geopotential 
[  routine 


Parameters  for  numerical 
integration 


Identifiers  for  starting  locations 
of  arrays  in  VSTR  and  IVSTR 


i 

i 

I 


? 
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Name 

ZOOO 

DIM 

Definition  of  Variable  or  Array 

NS  TAT 

880 

Identifiers  for  starting 
)  locations  of  arrays  in  VSTR 

NUBS 

881 

J  and  I VSTR 

DBUFS 

882 

256 

Auxiliary  buffer  storage 

DTMP 

1138 

100 

Saves  station  number  and  code 
word  for  those  stations  with 
code  word  0 

DATA 

1438 

1260 

Input  storage 

TEMP 

1238 

200 

Temporary  storage 

TRAJX 

1438 

57 

Temporary  location  for  output 
from  TRAJ  sub  routine  -  store  s 
x,  y,  z,  y,  z 

TLIST 

1495 

490 

Numerical  integration  working 
storage 

TICRT 

1985 

6 

Nominal  Cartesian  coordinates 

TIPQL 

1991 

6 

Nominal  spherical  coordinates 

TG 

1997 

Time  to  integrate  to 

TSUS 

1998 

Current  total  SCJS 

TSUSP 

1999 

4 

Predicted  SQS  for  next  iteration 

TSUSB 

2003 

Best  SQS  so  far 

TMBIS 

2004 

Current  estimate  of  time  bias  for 
the  observation  time  being 
considered  (if  applicable) 

TMINUS 

2005 

Flag  to  indicate  integration  times 
before  epoch 

IFTEX 

2006 

Indicates  mode  of  exit  from  FIT 

-  1  Converged 

=  Z  Max  iterations  and 
converging 

=  3  Failed  K*BNDS/8 

=  4  Normal  return 
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=  5  Max  iterations  and 
diverging 


Name 

2000 

DIM 

Definition  of  Variable  or  Array 

TUBSEF 

2007 

EC^F  flag  for  reading  observations 

TRH(M 

2008 

3 

Density,  kilograms/ m 

TALT 

2009 

Altitude  in  meters 

TDPDX 

2010 

64 

Contains  matrices  of  partials  for 
covariance  matrix  update 

TRS 

2074 

Distance  E— 

TRM 

2075 

Distance  E — 

TZ 

2076 

Indicates  if  solution  was  affected 
by  bounds 

XBSQ 

2077 

Scale  factor  for  BNDS  to  cause 
subsequent  solutions  to  be  affected 
by  bounds 

PHIH 

2078 

70  ^ 

THETH 

2148 

70 

i  Tables  for  PAETZOLD  dynamic 

ALT 

2218 

70 

f  atmosphere 

PSTAR 

2288 

70  J 

TDRAG 

2358 

3 

Three  components  of  acceleration 
due  to  drag 

TV 

2361 

3 

Three  components  of  Earth-fixed 
velocity 

TV  A 

2364 

Magnitude  of  Earth-fixed  velocity 

TR 

2365 

R 

TR2 

2366 

RZ 

TR3 

2367 

R3 

TR5 

2368 

R5 

TR7 

2369 

R7 

TD(?N 

2370 

Flag  for  drag  model 

TP$T 

2371 

3 

Total  acceleration  due  to  Earth's 
potential  field 

C0LA 

2374 

cos  0  0  =  latitude 
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Name 

2000 

DIM 

SILA 

2375 

SIPH 

2376 

C0PH 

2377 

SNALF 

2378 

CSALF 

2379 

FJ 

2380 

12 

C 

2392 

36  (6x6) 

s 

2428 

36  (6  x  6) 

C0UNT 

2464 

CAP 

2465 

CF10 

2466 

XN 

2467 

21 

XND0T 

2488 

21 

RJUPT 

2509 

TSEC 

2510 

2 

INTRX 

2512 

CENTER 

2513 

TALFA 

2514 

TRPRES 

2515 

3 

TBPERT 

2518 

3 

T CRASH 

2521 

PMAT 

2522 

9  (3x3) 

Definition  of  Variable  or  Array 

sin  <p 

sin  X  X  =  longitude 
cos  X 

sin  a  a  =  right  ascension 

cos  a 

1  Working  storage  for  generalized 
Lines  counter 

Working  values  of  and  F^q 

Position  of  bodies  table  (from 
ephemeris) 

Velocities  of  bodies  table  (from 
ephemeris ) 

Jupiter  inclusion  radius 
Interpolation  time  (sec  from  1950) 
Exit  flag  from  INTR 
Central  body  number  for  INTR 
a  ( e  .  r  .  2  /min) 

x,  y,  z,  due  to  radiation  pressure 

x,  y,  z,  due  to  bodies 

^  0  Vehicle  below  1  e.r. 

=  0  okay 

Matrix  used  in  computation  of 
variational  equation  second 
derivatives 


3-17 


Name 

2000 

DIM 

Definition  of  Variable  or  Array 

VMAT 

2531 

9(3x3) 

Matrix  used  in  computation  of 
variational  equation  second 
derivatives 

PUBS 

2550 

8 

Sensor  number,  time,  R,  A,  E, 
R,  a,  6  table 

PSTAT 

2558 

12 

Working  storage  for  sensor 
information 

PCSALF 

2570 

cos  (a)  a  -  a  +  \  +  go  t 

g  g  g°  e 

PSNALF 

2571 

sin  (a  ) 

g 

PWI 

2572 

3 

Vector  (w  ^  ,  w^,  w 

PWDTI 

2575 

3 

Vector  (wj,  w ) 

PUI 

2578 

3 

Vector  (u^  u^,  u^) 

PVI 

2581 

3 

Vector  (Vr  V ^  V J 

PV 

2584 

Vvi2  +  v/ 

PRSUB1 

2585 

oi 

> 

II 

r-H 

Pi 

PSNE 

2586 

sin  E 

c 

PCSE 

2587 

cos  E 

c 

PSNA 

2588 

sin  A 

c 

PCSA 

2589 

cos  A 

c 

PCMR 

2590 

R  =  computed  slant  range 

PWPP 

2591 

24 

Partial  derivatives 

PWDTPP 

2615 

24 

Partial  derivatives 

PRESD 

2639 

6 

Residuals  (measured  -  computed) 

IPFRST 

2645 

0  to  indicate  first  time  in  RADR 

PLSTSN 

2646 

Number  of  last  sensor  process^ 
by  RADR 

PUDTI 

2647 

3 

Vector  (Uj,  u^,  u^) 

PSIG 

2650 

6 

Sigma  list 
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Name 

2000 

DIM 

Definition  of  Variable  or  Array 

P0BCNT 

2656 

Total  number  of  accepted 
observations 

IRCNT 

2657 

6 

Cells  for  partials  print 

PDELFG 

2663 

6 

Cells  for  partials  print 

PRESDT 

2669 

11 

Cells  for  partials  print 

PKSUBS 

2680 

Rejection  criterion  scale  factor 

VSTR 

2700 

4700 

Floating  point  variable  storage 

IVSTR 

2700 

4700 

Fixed  point  variable  storage 

YYYY 

7400 

Base  address  for  working  storage 
within  common 

YYZZ 

13745 

COMMON 

3.  6  DESCRIPTION  OF  DIMENSIONAL  ARRAYS 

The  following  sections  give  further  detailed  information  regarding 
the  important  arrays  stored  in  core.  They  are  ordered  alphabetically  by 
the  name  of  the  array.  The  identification  line  gives  the: 

a)  Name  of  the  array 

b)  Dimension  of  the  array 

c)  Relative  location  from  common  storage  base  address 
3.6.1  ALT  (70),  YYYY  (2218) 

Altitudes  at  selected  increments  are  stored  in  ALT.  This  table  is 
then  used  to  generate  the  Paetzold  dynamic  atmosphere  tables  THETH, 
PHIH  and  PSTAR. 

ALT(I)  =  130.  +  10  (1-1)  for  I  =  1,  •  •  •  ,  28 

ALT(I)  =  420.  +  20  (1-29)  for  I  =  29,  ■  •  •  ,  58 

ALT(I)  =  1050.  +  50  (1-59)  for  I  =  59,  •  •  •  ,  70 

The  altitudes  are  in  kilometers. 
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3.6 .2  C  (6  x  6)  YYYY  (2 392) 


C  is  formed  from  the  tesseral  or  sectorial  harmonics  requested  by 
the  arrays  TESS  or  SECT  respectively. 

C  =  J  cos  mX 
n,  m  n,  m  n,  m 

3.6.3  FJ  (12),  YYYY  (2380) 

For  every  nonzero  entry  in  the  Z0NAL  array  the  corresponding 
zonal  harmonic  is  transferred  to  FJ. 

FJ  (I)  =  J  ;  I  =  2,  •  •  •  ,  12 

3.6.4  IRCNT  (6),  YYYY  (3657) 

A  count  is  kept  of  the  six  possible  residuals  computed  for  each  sta¬ 
tion.  During  the  residuals  print  the  first  nonzero  element  of  IRCNT  is 
printed  to  identify  the  first  residual  of  each  line.  If  IRCNT(I)  =  0,  the  I^‘ 
residual  of  a  possible  six  has  not  been  considered. 

3.6.5  PDELFG  (6),  YYYY  (2668) 

Corresponding  to  each  printed  residual  of  R,  A,  E,  R,  a,  or  6 
a  BCD  character  is  stored  in  PDELFG  to  signal  deletion  if  any. 

PDELFG(I)  =  blank  No  deletion 

PDELFG(I)  =  *  Deletion  by  input  number 

PDELFG(I)  =  G  Deletion  (gross  outlier) 

PDELFG(I)  =  K  Deletion  (K  RMS) 

3.6.6  PHIH  (70),  YYYY  (2078) 

For  each  of  the  70  altitudes  stored  in  ALT  a  corresponding  value  of 
PHIH  is  computed.  The  PHIH  table  is  then  used  to  interpolate  values  of 
the  Paetzold  angle  ijj(h).  A  typical  entry  of  PHIH  is  computed  from 

vMh)  =  i(h)(ZZ°  ~F)  e.(h) 

where  i(h)  and  0^(h)  are  polynomial  approximations  in  altitude. 
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3.6.7  PRESD  (6),  YYYY  (2639) 


The  residuals  (measured-completed)  applicable  to  a  given  sensor 
are  stored  in  PRESD. 

PRESD(l)  =  AR  (e.  r.  ) 

(2)  =  AA  (radians) 

(3)  =  AE  (radians) 

(4)  =  AR  (e.  r .  /min) 

(5)  =  Aa  (radians) 

(6)  =  A  6  (radians) 

3.6.8  PRESDT  (11),  YYYY  (2669) 

For  output  purposes  the  residuals  are  stored  in  PRESDT. 


PRESDT  ( 1 ) 

=  AR  (e.  r.  ) 

(2) 

=  A  A,  A  HA 

(3) 

=  AE,  ADEC 

(4) 

=  AR  (e.  r.  /min) 

(5) 

=  Au,  AS,  A  0  (option 

dependent) 

(6) 

=  Av,  AT,  AX.  (option 

dependent) 

(7) 

=  Aw,  Aw,  Ah  (option 

dependent) 

(8) 

=  VMAG  (e.  r.  ) 

(9) 

=  A  T  (min) 

(10) 

=  u  (rad) 

(ID 

=  (3  (rad) 
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3.6.9  PSIG  (6),  YYYY  (2650) 


For  each  station  the  appropriate  set  of  sigmas  is  moved  from  the 
CSIG  table,  scaled  and  stored  in  PSIG. 

PSIG(l)  =  crR  (e.r.) 

(2)  =  a  (radians) 

(3)  =  crR  (radians) 

(4)  =  <x^  (e.  r.  /min) 

(5)  =  cr  (radians) 

a 

(6)  =  crc  (radians) 

o 

3.6.  10  PSTAR  (70),  YYYY  (2288) 

For  each  of  the  70  altitudes  stored  in  ALT  a  corresponding  value 
of  PSTAR  is  computed.  The  PSTAR  table  is  then  used  for  atmospheric 
density  interpolations.  A  typical  entry  of  PSTAR  is  computed  from 

A 

log  p*  =  log  pg(h)  -  i(h)  — —  +  K(h)  -  K(h)  m 

where  m  -  g(a)  +  (220  -  F)jo.006  -  0.002  g(a)Jand  log  p^(h),  i(h)  and  K(h) 
are  computed  from  polynomial  approximations  in  altitude.  g(a)  is  a 
polynomial  seasonal  dependent. 
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3.6.11  PSTAT  (1Z),  YYYY  (2558) 


Sensor  information  for  a  particular  station  is  moved  from  the  Master 
Sensor  Table  to  PSTAT. 


PSTAT(l) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(8) 

(9) 

(10) 


< p  Latitude 


X  Longitude 


h  Altitude 


cos  0 


sin  0 


a  +  X 
g° 
s 

W1 

s 


code  word 


not  used 


(12) 

If  the  code  word  is  zero,  Category  2  variables  are  not  being  con¬ 
sidered  for  this  station.  If  nonzero,  the  word  contains  information  for 
locating  the  current  biases  to  be  applied  to  this  station. 

3.6.12  PUBS  (8),  YYYY  (2250) 

For  a  specified  time  and  station,  observations  are  moved  from 
variable  storage  to  PUBS. 

PUBS(l)  =  sensor  number 

(2)  =  time 

(3)  =  R 

(4)  =  A 

(5)  =  E 

(6)  =  R 

(7)  =  a 


(8)  =  6 
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3.6.13  PUDTI  (3),  YYYY  (2467) 


The  topocentric  direction  cosines  of  velocity  vector  in  horizon  sys¬ 
tem  are  stored  in  PUDTI. 

PUDTI(l)  =  ux 

(2)  =  d2 

(3)  =  d3 

3.6.  14  PUI  (3) 

Topocentric  direction  cosines  for  the  vehicle  position  in  horizon 
system  are  stored  in  PUI. 

PUI(l)  =  u, 

(2)  =  u2 

(3)  =  u3 

3.6.15  PVI  (3),  YYYY  (2581) 

Topocentric  direction  cosines  of  vehicle  in  horizon  system  are 
stored  in  PVI. 

PVI(l)  =  vl 

u)  =  v2 
(3)  =  v3 

3.6.16  PWDTI  (3),  YYYY  (3) 

Geocentric  velocity  of  vehicle  is  stored  in  PWDTI. 

PWDTI(l)  =  w 

(2)  =  w2 

(3)  =  w3 
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3.6.17  PWDTPP  (24) ,  YYYY  (2615) 


The  variational  equations  in  velocity  are  rotated  to  meridian  co¬ 
ordinates  from  TRAJX  storage  and  stored  in  PWDTPP. 

PWDTPP  [l  +  3(i  -  1)]  ,  •  •  •  ,  [3  +  3(i  -  1  >]  ^  •  ^r) 


i  =  1, 


n 


o  o 


n  is  the  number  of  parameters  p.  to  be  solved  for  from  the  list  (a_,  6  , 

Po’  po’  V  V  CDA/2m  ’  K)- 

3.6.18  PWI  (3),  YYYY  (2572) 

Geocentric  position  of  vehicle  is  stored  in  PWI. 

PWI(l)  =  w. 


1 


(2)  =  w. 

L 

(3)  =  w. 


3.6.19  PWPP  (24),  YYYY  (2591) 


The  variational  equations  are  rotated  to  meridian  coordinates  from 
TRAJX  storage  and  stored  in  PWPP. 


PWPP 


i) 


i  =  1, 


n 


n  is  the  number  of  parameters  p.  to  be  solved  for  from  the  list  (a  ,  6  , 

1  00 

Po>  Ao’  V  V  CDA/2m’  K)- 

3.6.20  5  (6  x  6),  YYYY  (2428) 

S  is  formed  from  the  tesseral  or  sectorial  harmonics  requested 
by  the  arrays  TESS  or  SECT  respectively. 


S  =  J  sin  m\ 
n,  m  n,  m  n,  m 
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3.6.21  SECT  (5),  YYYY  (799) 


SECT  is  tested  for  the  inclusion  of  sectorial  harmonics. 


If  SECT(I)  /  0,  then  \T  _  and  JA  T  are  included  in  Earth  potential  model. 


3.6.22  TBPERT  (3),  YYYY  (2518) 


The  total  acceleration  on  the  vehicle  due  to  selected  bodies  is  stored 
in  TBPERT. 


TBPERT(l)  =  x  (e.  r.  /min^) 

(2)  =  y  (e.  r.  /min^) 

(3)  =  *z  (e.  r .  / min^ ) 


3.6.23  TDRAG  (3),  YYYY  (2358) 

The  components  of  acceleration  due  to  drag  are  stored  in  TDRAG(3). 

TDRAG(  1)  =  x  ,  (e.r./min^) 

drag 

U)  =  y’drag  (e'r‘  /min2) 

(3)  =  z  (e.  r.  /min^) 

drag 

3.6.24  TESS  (14),  YYYY  (804) 

Up  to  14  tesseral  harmonics  may  be  specified  in  the  array  TESS. 

If  \  and  J  are  to  be  included  in  the  Earth  potential  model, 
n,  m  n,  m 

then  TESS(I)  =  10  n  +  m. 


3.6.25  THETH  (70),  YYYY  (2148) 

For  each  of  the  70  altitudes  stored  in  ALT  a  corresponding  value  of 
THETH  is  computed.  The  THETH  table  is  then  used  to  interpolate  values 
of  the  Paetzold  angle  0(h).  A  typical  entry  of  THETH  is  computed  from 


0(h)  =  0  (h)  -  A,  (h) 
s  1 


L(h)(22°F-'  F)  +  m(h) 


i(h)  +  a(h) 


where  0^(h),  A^(h),  A?0(h),  i(h)  and  a(h)  are  computed  from  polynomial 
approximations  in  altitude. 

m(h)  =  g(a)  +  (ZOO  -  F)[o.006  -  0.002  g(a)] 

where  g(a)  is  a  polynomial  seasonal  dependent. 
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3.6.26  TICRT  (6),  YYYY  (1985) 


The  Cartesian  coordinates  of  the  current  solution  vector  are  stored 
in  TICRT  for  each  iteration. 

TICRT(l)  =  x  (e.  r.  ) 

(2)  =  y  (e.  r.  ) 

(3)  =  z  (e.  r.  ) 

(4)  =  x  (e.  r.  /min) 

(5)  =  y  (e.r./ min) 

(6)  =  z  (e.  r.  /min) 

3.6.27  TIPQL  (6),  YYYY  (1991) 

The  polar  spherical  coordinates  of  the  current  solution  vector  are 
stored  in  TIPQ)L  for  each  iteration. 

TIP(?L(1)  =  a  (radians) 

(2)  =  6  (radians) 

(3)  =  (3  (radians) 

(4)  =  A  (radians) 

(5)  =  R  (e.r.) 

(6)  =  v  (e.r.  /min) 

3.6.28  TLIST  (490),  YYYY  (1495) 

See  description  of  subroutine  TRAJ. 
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3.6.29  TMNEL  (10),  YYYY  (770) 


The  array  TMNEL  is  computed  from  SPADATS  element  input. 
TMNEL(l)  =  Epoch  revolution  number 

Semimajor  axis  in  e.r. 

Eccentricity 
Inclination  in  radians 
R.A.  or  ascending  node  in  degrees 
Argument  of  perigee  in  degrees 
Mean  longitude  in  degrees 


U)  =  a 

o 

(3)  =  e 

o 

(4)  =  i 

(5)  =  C2c 

(6)  =  coq 

(7)  =  L 


(8)  =  C  Rate  of  change  of  anomilistic  period 


(9) 


in  days/rev^ 

Nodal  period  in  days/rev 


(10)  =  Rate  of  change  of  nodal  period  in  days/rev* 


3.6.30  TN0MP  (6),  YYYY  (764) 


TN0MP  contains  the  initial  estimates  of  the  polar  elements. 

TN0MP(  1)  =  a  (deg) 


(Z)  =  6  (deg) 

(3)  =  (3  (deg) 

(4)  =  A  (deg) 


(5)  =  R  (km) 

( 6)  =  v  (km/sec  ) 

The  differential  correction  package  updates  TNtjMP  each  iteration. 
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3.6.31  TN0MX  (6),  YYYY  (758) 


TN0MX  contains  the  initial  estimates  of  Cartesian  position  and 
velocity. 

TN0MX(1)  =  x  (km) 

(2)  =  y  (km) 

(3)  =  z  (km) 

(4)  =  x  (km/ sec) 

(5)  =  y  (km/ sec) 

(6)  =  z  (km/ sec) 

The  differential  correction  package  updates  TN0MX  each  iteration. 

3.6.32  TPflT  (3),  YYYY  (2371) 

The  components  of  total  acceleration  due  to  Earth's  potential  field 
are  stored  in  TP0T. 

TP0T(1)  =  x  (e.  r.  /min2) 

2 

(2)  =  y  (e.  r.  /min  ) 

(3)  =  z  (e.  r.  /min^) 

3.6.33  TRAJX  (57),  YYYY  (1438) 

For  the  current  integration  time  TRAJX  contains  the  position, 
velocity  and  acceleration  vectors  of  the  vehicle.  If  variational  equations 
have  been  integrated  they  are  also  present  in  TRAJX. 


TRAJX(l),  •  •  •  (3)  =  (x,  y,  z) 

(4),  •  •  •  (6)  =  (x,  y,  z) 

(7),  • •  •  (9)  =  (x,  y,  z) 


TRAJX 

[lO  +  6(i 

-*>] 

.  •  •  •  12  +  6(i  -  1)] 

3x 

1  =  9p.  ' 

dy_ 

’  9pi  ' 

9z 

'  3Pi 

TRAJX 

[l3  +  6(i 

,  •  •  *  [l 5  +  6(i  -  1) 

3x 

’  9pi  ' 

lx. 

1 9pi  ’ 

9z 

9pi 

(a 


n  is  the  number  of  parameters  p.  to  be  solved  for  from  the  list 

6  ,  (3  ,  A  ,  R  ,  v  ,  C  A/  2m,  K). 
o  o  o  o  o  JJ 
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3.6.34  TRPRES  (3),  YYYY  (Z515) 


The  acceleration  on  the  vehicle  due  to  the  sun’s  radiation  pressure 
is  stored  in  TRPRES. 

TRPRES(l)  =  x  (e.r./mir/) 
r  a  q 

(2)  =  y  ,  (e.  r.  /min'') 

rad 

(3)  =  z  ,  (e.  r.  /min  ) 

rad 

3.6.35  TSUSP  (4),  YYYY  (1999) 

TSUSP  contains  the  predicted  RMS  corresponding  to  the  four  candidate 
solutions  proposed  by  the  least  squares  procedure. 

TSUSP(l)  Predicted  RMS  for  nominal  bounds 

TSUSP(Z)  Predicted  RMS  for  K*  (nominal  bounds /Z) 

TSUSP(3)  Predicted  RMS  for  K*  (nominal  bounds /4) 

TSUSP(4)  Predicted  RMS  for  K*  (nominal  bounds/8) 

3.6.36  TV  (3),  YYYY  (Z361) 

The  components  of  velocity  of  the  vehicle  relative  to  the  atmosphere 
are  stored  in  TV. 


TV(1)  =  (e.r./min) 
(Z)  =  yA  (e.  r.  /min) 
(3)  =  zA  (e.  r.  /min) 

3.6.37  VSTR  (6300),  IVSTR  (6300),  YYYY  (Z7QQ) 
See  section  Variable  Storage 
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3.6.38  XN  (21),  YYYY  (2467) 


XN  contains  the  position  vectors  for  up  to  seven  bodies. 


XN(  1 )  ,  ••• 

,  (3)  =  (x,  y,  z)(Earth) 

XN(4)  ,  •  •  • 

,  (6)  =  (x,  y,  z)(moon) 

XN(7)  ,  ••• 

,  (9)  =  (x,  y,  z)(sun) 

XN(10),  •  •  • 

,(12)  =  (x,  y,  z)(V enus ) 

XN(  13),  ••• 

,  (15)  =  (x,  y,  z)(Mar s ) 

XN(  16),  ••• 

,(18)  =  (x,  y,  z)(Saturn) 

XN(  19),  ••• 

,(21)  =  (x,  y,  z)( J upiter 

The  coordinates  are  interpolated  from  an  ephemeris  tape. 


3.6.39  XNDpT  (21),  YYYY  (2488) 

XNDOT  contains  the  velocity  vectors  for  up  to  seven  bodies. 
XNDOT(l)  ,  •  •  •  ,  (3)  =  (x,  y,  z)  Earth 

XND0T(4)  ,  •  •  •  ,  (6)  =  (x,  y,  z)  moon 

XND0T(7)  ,  •  •  •  ,  (9)  =  (x,  y,  z)  sun 

XNDOT(IO),  •  •  •  ,  (12)  =  (x,  y,  z)  Venus 

XND0T(13),  •  •  •  ,  (15)  =  ( x ,  y,  z)  Mars 

XND(?T(16),  •••  ,  (18)  =  (x,  y,  z)  Saturn 
XND(?T(19) ,  •••  ,(21)  =  (x,  y,  z)  Jupiter 
The  coordinates  are  interpolated  from  an  ephemeris  tape. 


3 .  6 .  40  Z^NAL  (11),  YYYY  (788) 

ZONAL  is  tested  for  the  inclusion  of  zonal  harmonics.  If 
ZONAL  (I)  4  0,  then  is  included  in  Earth  potential  model. 
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3.7  MAGNETIC  TAPE  FORMATS 


ESPOD  utilizes  magnetic  tapes  in  numerous  formats.  These  formats 
are  described  by  the  sections  which  follow  as  listed  below. 


Tape 

Section 

Page 

SEAI 

3.  7.2 

3-34 

Sensors 

Elements 

3.  7.2.  1 

3.  7.2.2 

3-35 

3-36 

SRADU 

3.  7.  3 

3-37 

Observations 

3.  7. 3.  1 

3-38 

SCRATCH  (LOG  No.  7) 

3.7.4 

3-39 

Identification  Block 
Observations 

3. 7. 4.  1 

3.  7. 4.  2 

3-39 

3-40 

BINARY  EPHEMERIS 

3.  7.  5 

3-41 

3.  7.  1  Tape  Setup  and  Description 

Table  3 -VI  shows  how  ESPOD  interfaces  with  magnetic  tapes.  The 
following  codes  are  used: 

o  Write  ring  required 


^ ^  May  be  left  out  if  proper  conditions  are  met 
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Table  3 -VI.  Program  Tapes 


Logical 
Tape  No. 

Setup 

Tape  Description 

© 

Scratch 

Data  is  transferred  to  this  tape. 

i 

System 

RPL  library  of  SPS  (Semiautomatic  Program¬ 
ming  System)  programs. 

2 

S  chedule 

Job  tape  (input). 

SEAI 

Backup  tape  for  logical  tape  No.  4. 

4 

SEAI 

Master  SEAI  (sensor,  elements,  acquisition 
and  information  files)  tape.  The  KSP0D 
program  uses  only  the  sensors  and  elements 
off  this  tape. 

5 

Not  used . 

6 

SRADU 

SRADU  tape  contains  observations 
existing  prior  to  the  run. 

Q 

Scratch 

The  ESP0D  program  writes  blocks  of 
common  data  and  observations  just  proc¬ 
essed  on  this  tape.  (70  TAPE7) 

<$> 

Planetary  ephemeris  tape. 

9 

Not  used. 

Scratch 

Trajectory  tape  (optional). 

© 

Output 

Off-line  output  tape. 
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3.7.2  SEAI  Tape  Format 


ID 

BLOCK 

SATTB  BLOCK 
+  16  PRIMARY 
SENSORS 

RESTART 

BLOCK 

SENSOR 

BLOCK 

A  BLOCK 

ELEMENT 

BLOCK 

B  BLOCK 

OBSERVATION 

ACQUISITION 

FILE 

C  BLOCK 

INFORMATION 

FILE 

D  BLOCK 

ORSUM 

FILE 

E  BLOCK 

L0MT 

TABLE 

F  BLOCK 

Z  BLOCK 

1  BLOCK  TAPE  ID 

_  1  BLOCK:  FIRST  1 12  WORDS  ARE  SATTB 

LAST  16  WORDS  ARE  MOST  USED  SENSOR  NO'S 

1  BLOCK  OF  DYNAMIC  CORE  INFORMATION 

_  VARIABLE  SIZE  FILE  CONTAINS: 

SENSOR  COORDINATES 

1  BLOCK  ALL  A'S  FOR  FILE  TERMINATOR 

_ VARIABLE  SIZE  FILE  CONTAINS: 

SATELLITE  ELEMENTS 

1  BLOCK  ALL  B’S  FOR  FILE  TERMINATOR 

_  VARIABLE  SIZE  FILE  CONTAINS:  ACQUISITION 

INFORMATION  FOR  LOOK  ANGLE  COMPUTATION 

1  BLOCK  ALL  C'S  FOR  FILE  TERMINATOR 

VARIABLE  SIZE  FILE  CONTAINS:  GENERAL 
NONDYNAMIC  SATELLITE  INFORMATION 

1  BLOCK  ALL  D'S  FOR  FILE  TERMINATOR 

_ VARIABLE  SIZE  FILE  CONTAINS:  SU MMARY 

FOR  OBSERVATION  SUMMARY  REPORT 

1  BLOCK  ALL  E'S  FOR  FILE  TERMINATOR 

_  LOMT  TABLE  (41  BLOCKS).  USED  BY  MAP  PROGRAM 

FOR  ASSEMBLING  Q-POINT  MESSAGES  FROM  DMN  I  TAPES 

1  BLOCK  ALL  F'S  FOR  FILE  TERMINATOR 

1  BLOCK  ALL  Z'S  FOR  TAPE  TERMINATOR 


Figure  3-2.  SEAI  Tape  Format 
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3.  7. 2.  1  Sensor  Format 


FILE  MAINTENANCE  CONTROL  CODES  (BCD)* 
SENSOR  TYPE  (BCD) 

SENSOR  NUMBER  (BCD) 


WORD  NO.  1 
WORD  NO.  2 
WORD  NO.  3 
WORD  NO.  4 
WORD  NO.  5 
WORD  NO.  6 
WORD  NO.  7 
WORD  NO.  8 
WORD  NO.  9 

*XX  =  11  (BCD)  FOR  SENSOR  FILE 

WORD  NO.  9 

BIT  LAYOUT  FOR  WORD  NO.  9 

BITS  0-5  F  SIGN  BIT  ON  =  CLASSIFIED 

BIT  5  ON  =  NOT  REPORTING 

BITS  6-11  @  LA  COORDINATES  INDICATOR  (BCD) 

C  TYPE  (ONLY  THE  LEAST  SIGNIFICANT 
04  BITS  ARE  USED) 

BITS  12-23  A 

BITS  24-35  h 

BITS  36-47  p 

14  RECORDS  PER  BLOCK  =  125  WORDS  (2  WORDS  NOT  USED) 

A,  h,  p,  F  ARE  ALL  ZERO  AT  THIS  TIME 

Figure  3-3.  Sensor  Format 


X 


N 


N 


N 


N 


N 


NNNNNNNN 


N 


N 


48  BIT  FLT  PT  N0. 


48  BIT  FLT  PT  N0. 


48  BIT  FLT  PT  N0. 


48  BIT  FLT  PT  N0. 


48  BIT  FLT  PT  N0. 


F@ 


N 


SENSOR  CODE  NAME  (BCD) 

<t>  RADIANS 
X  RADIANS  EAST 
H  EARTH  RADII 

X/COS  9  =  -(C+H)  COS  9  EARTH  RADII 

Z  =  -  (S+H)  SIN  4>  EARTH  RADII 

A,  h,  p  (DEG,  DEG,  KM)  =  SENSOR  ACCURACY 
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3.  7.  2.  2  Element  Record 


WORD  NO.  1 
WORD  NO.  2 
WORD  NO.  3 
WORD  NO.  4 
WORD  NO.  5 
WORD  NO.  6 
WORD  NO. 7 
WORD  NO.  8 
WORD  NO.  9 
WORD  NO.  10 
WORD  NO.  11 
WORD  NO.  12 
WORD  NO.  13 

WORD  NO.  14 
WORD  NO.  15 
WORD  NO.  16 


* 


X 

X 

N 

N 

O 

B 

B 

B 

N 

N 

N 

N 

N 

N 

N 

N 

48  BIT  FLT  PT  N0. 


48  BIT  FLT  PT  N  0. 
48  BIT  FLT  PT  N0. 
48  BIT  FLT  PT  N0. 
48  BIT  FLT  PT  N0. 
48  BIT  FLT  PT  N0. 
48  BIT  FLT  PT  N  0. 
48  BIT  FLT  PT  N0. 
48  BIT  FLT  PT  N0. 
48  BIT  FLT  PT  N0. 


48  BIT  FLT  PT  N0. 


INITIAL 

REV 

EPOCH 

REV 

FINAL 

REV 

C 

P 

STANDARD 

BRIGHTNESS 

NOT  USED 

1 

T0y 

Y  Y  Y 

FILE  MAINTENANCE  CONTROL* 

FIRST  TWO  CHARACTERS  OF  SATELLITE  NAME 
SATELLITE  NUMBER 


LAST  8  CHARACTERS  OF  SATELLITE  NAME 
a 

xn 

a 

yn 

hx 

hy 

hz 

L0  RADIUS 

T0  DAYS  SINCE  1950 

C  DAYS/REV2 

RMS  KILOMETERS 

NO.  OF  OBSERVATIONS  IN  RMS 

2-24  BIT  BINARY  INTEGERS 
STORED  AS  INTEGERS  X  10+ 


ELEMENT  SET  NUMBER  -  BINARY  INTEGERS 
YEAR  OF  T0  -  (1  BCD  CHARACTER) 

I  STOP,  (BCD) 


2  BCD  CHARACTERS  -  ELEMENT  FILE  =  13 


WORD  NO.  13  -  EXPIRATION  DATE  OF  BULLETIN  -  DAYS  AND 
FRACTIONS  OF  A  DAY 

WORD  NO.  14  -  INITIAL  REV-  BITS  0-15 
EPOCH  REV-  BITS  16-31 
FINAL  REV  -  BITS  32-47 

WORD  NO.  16  -  BIT  O  OF  WORD  NO.  16  IS  THE  SIGN  OF 
THE  STANDARD  BRIGHTNESS 


Figure  3-4.  Element  Record 
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3.7.3  SRADU  Tape  Format 


SOURCE:  JUMP  TO 
AKL<?K 


SOURCE:  OLD  SRADU 
TAPE 

SOURCE:  LRTAPE  AND 
LRTAPE  +  1 


END  OF  BLOCK  ONE 


END  OF  BLOCK 


END  OF  BLOCK 


END  OF  BLOCK 


07 


00 


60 


BCD 


BCD 


BCD 


BCD 


BCD 


BCD 


►  O 


OBSERVATION 


OBSERVATION 


OBSERVATION 


OBSERVATION 


XXXXXXXX 


UNUSED  PORTION  OF 
BLOCK  (ALL  X'S) 


128  WORD  BLOCK  OF  Z'S 


DATE  OF  GENERATION  OF 
NEW  SRADU  TAPE 

NOT  USED  (THIS  IS  NORMALLY 
FOR  DATE  OF  LAST  UPDATE) 

DATE  OF  GENERATION  OF 
OLD  SRADU  TAPE 

DATE  OF  GENERATION  OF 
R  TAPE 


FIRST  TEN  WORD  OBSERVATION 
FOR  FIRST  SATELLITE* 

SECOND  TEN  WORD  OBSERVATION 
FOR  FIRST  SATELLITE 


OBSERVATION 

X 

X 

XXX 

X 

X 

X 

UNUSED  PORTION  OF 
BLOCK  (ALL  X'S) 

OBSERVATION 

} 


NTH  TEN  WORD  OBSERVATION 
FOR  FIRST  SATELLITE 


OBSERVATION 

X 

X 

X  X 

X  X  X  X 

t 

INUSED  PC 
BLOCK  C 

DRTION  OF 
ALL  X'S) 

FIRST  TEN  WORD  OBSERVATION 
FOR  SECOND  SATELLITE 


NTH  TEN  WORD  OBSERVATION 
FOR  SECOND  SATELLITE 


FIRST  TEN  WORD  OBSERVATION 
FOR  MTH  SATELLITE 


NTH  TEN  WORD  OBSERVATION 
FOR  MTH  SATELLITE 


'(FIRST  SATELLITE  NUMBER  WILL  BE  O) 


Figure  3-5.  SRADU  Tape  Format 
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3.  7.  3.  1  Observation  Record 


WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 
WORD  NO. 


*2  BCD 


WORD  NO. 


WORD  NO. 


X 

X 

T 

T 

O 

N 

N 

N 

M 

M 

M 

M 

M 

S 

S 

S 

48  BIT 

FLT 

PT 

N0. 

R 

0 

0 

0 

0 

0 

E 

A 

48  BIT 

FLT 

PT 

N0. 

48  BIT 

FLT 

PT 

N0. 

48  1 

BIT 

FLT 

PT 

N0. 

48  1 

BIT 

FLT 

PT 

N0. 

0CTANT 

At 

VECTOR 

CF 

CL 

0T 

0BS 

N0  (BCD) 

FILE  MAINTENANCE  CONTROL* 
EQUIPMENT  TYPE 
STATION  NUMBER 


MESSAGE  AND  SATELLITE  NUMBERS 
TIME  IN  DAYS  SINCE  1950 

ELEVATION  -  DECLINATION 
AZIMUTH  -  RIGHT  ASCENSION 
SLANT  RANGE 

RANGE  RATE  -  MAX  FREQUENCY  SHIFT 


OBSERVATION  TYPE 

CLASSIFICATION  A  =  UNCLASSIFIED 
I  =  CLASSIFIED 

MAX  FREQUENCY  SHIFT  INDICATOR 


CHARACTERS  -  OBSERVATION  FILE  =  17 


4 

R  =  ASSOCIATION  INDICATOR 
(1  BCD  CHARACTER  -1-9) 

0=0  NOT  USED 

E  =  EQUINOX 

A  =  ACCURACY 

9 

OCTANT  (DEGREES)  BITS  0-15 

At  X  100  (MIN)  BITS  16-31 

VECTOR  MAGNITUDE  BITS  32-47 

Figure  3-6.  Observation  Record 
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3.7.4  Scratch  Tape  (Log  No.  7) 


The  first  block  on  tape  7  is  the  identification  block.  The  first  word 
on  the  block  is  the  tape  identification.  The  second  word  is  the  vehicle 
number.  The  remainder  of  the  block  contains  blanks.  The  identification 
block  is  shown  in  Figure  3-7. 

The  next  60  blocks  on  tape  7  contain  C0MM($N  storage.  All  the 
words  in  all  the  blocks  are  48  bit  floating  point  numbers. 

After  CQ)MMQ)N  is  written,  a  sentinel  block  is  written,  consisting 
of  words  of  z 1  s  . 

Blocks  of  observation  information  follow  the  sentinel  block.  A 
block  of  observation  information  is  written  according  to  the  format  on 
diagram  B.  Tape  7  is  filled  with  observations  from  the  sentinel  block 
until  the  end  of  the  tape. 

3.  7.  4.1  Identification  Block  of  Tape  Log  7 


WORD 

NO.  1 

7 

0 

T 

A 

P 

E 

7 

WORD 

NO.  2 

O 

X 

X 

X 

A 

A 

A 

A 

TAPE  IDENTIFICATION 
VEHICLE  NO. 


X  X  X  =  VEHICLE  NO. 


Figure  3-7.  Tape  Log  7  Identification  Block 
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3.  7.  4.  2  Tape  7  Observation  Format 


, - G  -  BINARY  INTEGER  AT  B23 

s 

I - SENSOR  NUMBER  (BCD) 

WORD  NO.  1 
WORD  NO.  2 
WORD  NO.  3 
WORD  NO.  4 
WORD  NO.  5 
WORD  NO.  6 
WORD  NO.  7 
WORD  NO.  8 
WORD  NO.  9 
WORD  NO. 10 


Gs 

O 

N 

N 

N 

CF 

CL 

OT 

ET 

S 

S 

S 

48  BIT  FL  PT  NO. 

R 

0 

0 

0 

0 

0 

E 

A 

48  BIT  FL  PT  NO 

48  BIT  FL  PT  NO 

48  BIT  FL  PT  NO 

48  BIT  FL  PT  NO 

°  R 

a  A 

°  R 

TIME  -  DAY  AND  FRACTIONS  OF  DAYS 
FROM  1  JANUARY  1950 

ELEVATION  -  DECLINATION 
AZIMUTH  -  HOUR  ANGLE 
SLANT  RANGE 
RANGE  RATE 

.  OBSERVATION  WEIGHTS  ASSIGNED 
AT  OBSERVATION  PROCESSING  TIME* 


♦THESE  WEIGHTS  ARE  STORED  AS  BINARY  INTEGERS,  TWO  PER 
WORD  (ONE  AT  B23  AND  THE  OTHER  AT  B47).  THE  TRUE  WEIGHTS 
ARE  THESE  INTEGERS  CONVERTED  TO  FLOATING  POINT  NUMBERS 
AND  DIVIDED  BY  104.  FOR  OPTICAL  DATA  THE  FIRST  WORD  CONTAINS 
WEIGHTS  FOR  FIELD  REDUCED  RA  AND  DEC  AND  THE  SECOND  WORD 
CONTAINS  WEIGHTS  FOR  PRECISION  REDUCED  RA  AND  DEC 

WORD  NO.  2 

CF  =  MAX  FREQUENCY  SHIFT  INDICATOR 

CL  =  CLASSIFICATION  A  =  UNCLASSIFIED  1  =  CLASSIFIED 

OT  =  OBSERVATION  TYPE 

0  =  RANGE  RATE  ONLY 

1  =  AZIMUTH  AND  ELEVATION 

2  =  AZIMUTH,  ELEVATION,  AND  RANGE 

3  =  AZIMUTH,  ELEVATION,  RANGE  AND  RANGE  RATE 
5  =  RIGHT  ASCENSION  AND  DECLINATION 

ET=  EQUIPMENT  TYPE 

WORD  NO.  4 

R  =  ASSOCIATION  INDICATOR 
E  =  EQUINOX 
A  =  ACCURACY 


Figure  3-8.  Tape  7  Observation  Format 
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3.7.5  Binary  Ephemeris  Tape 


WORD 

NO.  1 

O 

X 

X 

X 

A 

A 

A 

A 

WORD 

NO.  2 

WORD 

NO.  3 

VEHICLE  NO. 

VEHICLE  NAME  (BCD) 


(a) 


T  =  TIME  IN  MINUTES  FROM  Oh  DAY  OF  EPOCH 
X  =  (E.R.) 

Y  =  (E.R.) 

Z=  (E.R.) 

X  =  (E.R./KEMIN) 

Y=  (E.R.  /K  EMIN) 

Z  =  (E.R.  /  KEMIN) 

(b) 


THE  TRAJECTORY  TAPE  IS  WRITTEN,  OPTIONALLY,  ON 
LOGICAL  TAPE  UNIT  10.  THE  FIRST  BLOCK  ON  TAPE 
CONTAINS  ALL  BLANKS  EXCEPT  FOR  THE  FIRST  3  WORDS. 
THE  FORMAT  OF  THE  FIRST  3  WORDS  IS  SHOWN  IN  (a). 
EIGHTEEN  SETS,  OF  THE  FORM  IN  (b),  MAKE  UP  A  BLOCK 
OF  INFORMATION  ON  THE  TRAJECTORY  TAPE.  A  SET 
CONSISTS  OF  SEVEN  FLOATING  POINT  NUMBERS 

A  SENTINEL  BLOCK  CONTAINING  ALL  Z'S  FOLLOWS  THE 
FINAL  TRAJECTORY  BLOCK  WHICH  IS  WRITTEN. 


Figure  3-9.  Binary  Ephemeris  Tape 
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4.  ESPOD  SUBROUTINE  DESCRIPTION 


This  section  identifies  and  describes  each  subroutine  used  in  the 
ESPOD  program.  The  segments  of  the  program  which  use  these  subrou¬ 
tines  are  discussed  in  Section  3.3  and  glossaries  giving  abbreviated  descrip¬ 
tions  are  provided  for  each  of  the  segments:  ESP0D,  ESP0DDC  and 
ESP0DEPH. 

Each  subroutine  is  described  in  the  following  terms: 

a)  Identification — title,  segment,  called  by  subroutine 

b)  Function 

c)  Usage — calling  sequence,  input,  output,  error/action 
messages  on  the  line 

d)  Subroutines  used — library,  program 

e)  Equations 

The  subroutines  are  presented  in  alphabetical  order  by  title.  A  com¬ 
plete  abbreviated  alphabetical  listing  of  titles  with  page  number  is  provided 
for  ready  reference. 

4.  1  ALPHABETICAL  LISTING  OF  TITLES 


Title 

Page 

Title 

Page 

ADJUST 

4-5 

C0RMAT 

4-53 

ALSQiRT 

4-9 

CT0P 

4-55 

APF10 

4-11 

DATE 

4-57 

APPLY 

4-13 

DAUX 

4-59 

ASIN 

4-17 

D0N 

4-61 

ASSIGN 

4-19 

DQ>T 

4-63 

ATNQF 

4-23 

DPRLM 

4-65 

ATM0S 

4-25 

DPR0S 

4-67 

ATM59 

4-27 

DRAG 

4-69 

BCD0BS 

4-31 

DRDP 

4-73 

B0DY 

4-33 

DRIVER 

4-75 

BOUNDS 

4-37 

DYNAT 

4-79 

CALCSG 

4-39 

ELML0D 

4-85 

CKRSRT 

4-41 

ERR0R 

4-87 

CLTIME 

4-43 

EXIT 

4-89 

C0ESA 

4-4  5 

4-  1 


Title 

page 

T  itle 

Page 

FIT 

4-91 

PHEAD 

4-183 

GPER  T 

4-95 

PLTEL 

4-185 

HUMAH 

4-99 

PGLY 

4-189 

IDSUB 

4-101 

PGPPC 

4-191 

INTEG 

4-103 

PGSTPR 

4-195 

INTPL 

4-105 

PGTENT 

4-197 

IPRNT 

4-107 

PPLPC 

4-199 

ITMPCH 

4-109 

PPRINT 

4-203 

JCS 

4-111 

PRAXIS 

4-205 

JDCSRCH 

4-113 

PRCGNS 

4-21 1 

EEGS1 

4-115 

PRECES 

4-213 

LEGS  2 

4-117 

PRELIM 

4-215 

LINES — ESP0D 

4-121 

PRSSTB 

4-221 

LINES  —  ESPGDDC 

4-123 

PTGC 

4-225 

L0D0BS 

4-125 

PUPB 

4-227 

L0DSEN 

4-127 

RADR 

4-233 

MABAT 

4-129 

READPR 

4-237 

MAGN 

4-131 

RDXYZ 

4-261 

MATPCH 

4-133 

rdcgm 

4-263 

MATPT 

4-135 

REFRAC 

4-265 

MLTUT 

4-137 

REJECT 

4-269 

MNELTC 

4-139 

REWT— ESPGD 

4-273 

M0VE 

4-149 

REWT—  ESPGDDC, 

MGVEVS 

4-151 

ESPGDEPH 

4-275 

MG V MAT 

4-155 

RMAX 

4-277 

MULT 

4-157 

RGTRU 

4-279 

N  PR  PC  H 

4-159 

RPR  ESS 

4-285 

GBSIN 

4-161 

SDELET 

4-289 

GBSLGD 

4-163 

SELECT 

4-291 

GBSSRT 

4-165 

SENIN 

4-293 

GUTER 

4-167 

SENRD 

4-299 

GUTPT 

4-169 

SENSCH 

4-301 

PAR GUT 

4-171 

setcgn 

4-303 

PARSET 

4-177 

SETIC— ESPGDDC 

4-305 

PIMGD 

4-181 

SETIC  —ESPGDEPH 

4-307 

4-2 


Title 

Page 

Title 

Page 

SETTAB 

4-309 

TRAJ 

4-351 

SKIPT 

4-311 

TTAPE 

4-357 

SN0MIC 

4-313 

TWRAP 

4-359 

SNSGET 

4-314 

UBRED 

4-361 

SSTB 

4-317 

UBSGET 

4-363 

STSMAT 

4-319 

UNPAKSN 

4-365 

SUPMAT 

4-321 

UPDATE 

4-367 

SWTSN 

4-323 

VAREQ 

4-371 

TC0MP 

4-329 

VPERT 

4-375 

TGDJD 

4-331 

WE0FT 

4-379 

TIME 

4-333 

WRTC0M 

4-381 

TINIT 

4-337 

WRT0BS 

4-383 

TMSEP 

4-341 

XCR0SS 

4-385 

TPRLM  — ESP0DDC 

4-343 

YHADEC 

4-387 

TPR  LM  —  ESP0DEPH 

4-345 

YRAE 

4-389 

TPRNT 

4-347 

4-3 


ADJUST 


ADJUST 


4.  Z  SUBROUTINE  DESCRIPTIONS 
SUBROUTINE  IDENTIFICATION 

A.  Title 
ADJUST 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
PRECES 

FUNCTION 


The  function  is  to  update  right  ascension,  declination  type  observations 
to  true  equinox  of  midnight  of  the  day  of  epoch. 

USAGE 


A.  Calling  sequence 

Call  ADJUST(D,  E,  C) 


B.  Input 

1.  C0MM0N 

CDEG 

CSEPS 

C2PI 

DDAY 

DLEPS 

DLPSI 

DMNTH 

DYEAR 

SNEPS 


Degrees/ radian 

Cos  e 

2tt 

Epoch  day 

Ac 

A^ 

Epoch  month 
Epoch  year 
Sin  e 


2.  Calling  sequence 

D  Observed  value  of  right  ascension 
E  Observed  value  of  declination 
C  i  (the  reference  year  for  the  observation) 


C.  Output 

1.  C0MM0N 


2.  Calling  sequence 

D  Value  of  right  ascension  which  has  been  precessed 
E  Value  of  declination  which  has  been  precessed 

D.  Error/ action  messages 
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ADJUST 


ADJUST 


SUBROUTINES  USED 


A.  Library 

ABSF 

C0SF 

SINF 

TANF 

B.  Program 

ATNQF  Arc  tangent  routine 
EQUATIONS 


Update  a.  6  observations  to  equinox  of  0000Z  day  of  epoch 


t 

o 


1900  4  Y  +  yf  + 


D 

365. 25 


T 

o 


years 

—  “Too 


1900 


T 


e 


o 


z 


0 


[*.  -  *] 

100 

(23  04. 25"  +  1. 396 "T  )  I T I  +  0.302"  |  T I Z  +  0. 0  18"  I  T 

oil  I  i  1 

=  i  +0.7911" I T I ^ 

I  1 

(2004.682"  -  0 .  853  "  T  )  I  t|  -  0.426"|t!Z  -  0.042"|t| 


if  T  ~  0,  continue 
if  T  ^  0.  go  to  (I) 


£  =  -  z 
^  o 


=  -e. 


0  =  -0 

(I)  =  cos  6  sin(a  +  £  ) 


o 


(II)  -  cos  0  cos  6  cos(a  4*  £  )  -sin  0  sin  6 
o  o  bo  o 
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ADJUST 


ADJUST 


(III)  =  cos  0  sin  6  +  sin  0  cos  6  cos(a  +  £  ) 

o  o'o">(j 

Aa  =  (cos  €  +  sin  €  sin  a  tan  6)AiJj  -  cos  a  tan  6Ae 

A6  =  sin  €  cos  aAijj  +  sin  aAe 


a 


+  Z  +  Aa 


6 


tan 


(in) 

w 

cos  (a  -  z) 


+  A6 
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ALS0RT 


ALS0RT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ALS0RT 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
E0DSEN 

FUNCTION 

This  routine  will  sort  alphanume rically  the  list  of  desired  sensor 
numbers.  This  list  is  generated  when  the  observations  are  being 
processed. 

USAGE 

A.  Calling  sequence 
Call  ALS0RT 

B.  Input 

1.  C0MM0N 

DBUFS  Auxiliary  buffer  storage 

TEMP  Temporary  storage 

Z.  Calling  sequence 


C.  Output 

1.  C0MM0N 


Z.  Calling  sequence 


D.  Error  /  action  messages 


SUBROUTINES  USED 
A.  Library 


B.  Program 
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APF10 


APFIO 


SUBROUTINE  IDENTIFICATION 

A.  Title 
APFIO 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutine 

C0ESA  (ESP0DDC,  ESP0DEPH) 

PAETZ0LD  (ESP0DDC,  ESP0DEPH) 

FUNCTION 

The  function  is  to  compute  values  of  A^  and  F^  as  a  function  of  time. 
Values  of  A^  and  F^  are  used  by  dynamic  atmosphere  routines  in  their  compu¬ 
tations  of  density.  A  table  consisting  of  sets  of  t  (days),  A  ,  F^q  are 
input  with  the  preliminary  data.  Linear  interpolation  is  used  where  pos¬ 
sible,  and  where  it  is  not  possible,  the  last  values  of  A  and  F.~  in  the 

p  I U 

table  are  used.  New  values  are  computed  only  if  the  time  has  changed  by 
more  than  a  quarter  of  a  day  from  the  time  of  the  last  computation.  The 
input  table  is  first  checked  for  over -the -year  discontinuities  in  time.  If 
discontinuities  appear,  the  times  in  the  table  are  adjusted  appropriately. 

USAGE 

A.  Calling  sequence 
Call  APFIO 

B .  Input 

1.  C0MM0N 

CAPF10  Array  containing  sets  of  t  (days),  A  ,  F^q 

Maximum  of  30  sets  is  permissible^ 

TLIST(2)  Time  (min  from  0  day  of  epoch)  for  which  to 

compute  values  of  A^  and  F^ 

DFL  Flag  to  indicate  first  time  in 

2.  Calling  sequence 
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APF10 


APFIO 


C.  Output 

1.  C$MM(JN 

CAP  A  for  time  TLIST(2) 

CF10  Fio  for  time  TLIST(2) 

2.  Calling  sequence 

D.  Error  /  action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 
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APPLY 


APPLY 


SUBROUTINE  IDENTIFICATION 

A.  Title 
APPLY 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
FIT 

FUNCTION 

Function  is  to  apply  DC  solution  vector  and  print  iteration  summary 
USAGE 

A.  Calling  sequence 
Call  APPLY  (IFIT) 

B .  Input 

1.  COMMON 


CDAD2M 

CDA/2m 

CK 

Drag  variation 

IVSTR 

Fixed  point  variable  storage 

NBDNS 

Starting  location  of  bounds  vector  in 
variable  storage 

NDPAR1 

Starting  location  of  solution  vector  in 
variable  storage 

NDPR 

Total  number  of  Category  1  variables  to 
solve  for 

NICPR 

Total  number  of  spherical  coordinates  to 
solve  for 

NIDP 

Starting  location  in  fixed  point  variable 
storage  of  an  array  which  defines  CAT1 
variables  in  solution  vector 

NITCT 

Iteration  counter 

NPAR 

Starting  location  of  parameter  list  in 
variable  storage 
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APPLY 


APPLY 


NPBIS 

Starting  location  of  current  estimates  of 
Category  Z  variables 

NPR 

Total  number  of  parameters  to  solve  for 

NPRCD 

Identifies  table  for  definition  of  Category  Z 
variables  to  be  solved  for 

NSCALE 

Starting  location  of  the  list  of  conversion 
factors 

NSSTB 

Starting  location  where  station  mean  and  RMS 
information  are  stored 

NSTAT 

Starting  location  of  the  master  sensor  table 

NR 

T  - 1 

Starting  location  of  where  the  (A  A)  is 

stored 

NRTMP 

Starting  location  of  temporary  storage  for 
special  handling  of  R  matrix 

TICRT 

Nominal  Cartesian  coordinates 

TIP0L 

Nominal  spherical  coordinates 

TEMP 

Temporary  storage 

TN0MP 

Initial  spherical  coordinates 

TN0MX 

Initial  Cartesian  coordinates 

TSUS 

Current  total  S0S 

TS  USB 

Best  S($S  so  far 

TSUSP 

Predicted  S0S  for  next  iteration 

TZ 

Indicates  if  solution  was  affected  by  bounds 

VSTR 

Variable  storage 

CDEG 

Degree/ radian 

CKMER 

Km/Earth  radii 

I0UT 

Output  tape  number 

2.  Calling  sequence 


IFIT 

1  apply  solution  using  nominal  bounds 

Z  apply  solution  using  bounds  over  two 

3  apply  solution  using  bounds  over  four 

4  apply  solution  using  bounds  over  eight 
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APPLY 


APPLY 


C.  Output 

1 .  C0MM0N 

Z.  Calling  sequence 

D.  Error/  action  messages 


SUBROUTINES  USED 

A.  Library 

SQRTF 

B.  Program 

CtjRMAT 

HUMAH 

Computes  correlation  (c r  and  p)  matrix 

Converts  vector  or  matrix  from  machine  units 
to  human  units 

MATPT 

MQ*VMAT 

PT0C 

Prints  an  N  x  N  lower  triangular  matrix 

Moves  a  triangular  matrix  from  A  to  B  storage 
Converts  polar  to  Cartesian 
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ASIN 


ASIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ASIN 

B.  Segment 

ESPOD 

ESPODDC 

ESPODEPH 

C.  Called  by  subroutines 

FUNCTION 

The  function  is  to  compute  the  arc  sine  in  radians  between-Tr/2  and  tt /  2. 
USAGE 

A.  Calling  sequence 
ASIN  (A) 

B .  Input 

1.  COMMON 

2.  Calling  sequence 

A  Argument  between  -1.0  and  +1.0 

C .  Output 

1.  COMMON 

2.  Calling  sequence 

ARCSIN  Radians  (principal  value) 

D.  Error/ action  me ssages 

SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Program 

ATNQF  Arc  tangent 


4-17 


ASIN 


AS  IN 


METHOD 


EQUATIONS 
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ASSIGN 


ASSIGN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ASSIGN 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

The  function  is  to  establish  NPR,  NDPR,  NICPR,  NIDENT  and  do  the 
storage  assignment  for  the  arrays  to  be  located  in  VSTR  and  IVSTR. 

USAGE 

A.  Calling  sequence 
Call  ASSIGN 

B .  Input 

1.  C0MM0N 


CLDSTR  Cold  start,  non-cold  start  flag 


DATA 


Input  storage 


DCFLG  DC  package  control  flags 


FGCAT1  Flag  1°  indicate  category  1  card  read 


FGCATZ  Flag  to  indicate  category  2  card  read 


FGDELE  Flag  to  indicate  delete  cards  read 


NAR0W 


Starting  location  where  one  row  of  the 
augmented  matrix  (A,  B)  is  stored 


NATA 


T 

Starting  location  of  where  the  triangular  A  A 
is  stored 


NBDNS 


Starting  location  for  the  bounds  used  by  LEGS 


NDPARZ  l  Starting  locations  where  the  four  sets  of 
NDPAR3  /  solution  vectors  will  be  stored 
NDPAR4 J 
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ASSIGN 


ASSIGN 


NDPR 

Number  of  all  differential  and  initial  parameters 
to  solve  for  (Category  1) 

NICPR 

Number  of  initial  conditions  parameters  to  solve 
for 

NIDENT 

Number  of  entries  in  the  NIDLED  list 

NIDLED 

Starting  location  of  where  the  observation  de¬ 
letion  table  begins 

NIDP 

Identifier  for  table  indicating  Category  1  type 
variables  to  be  solved  for 

NPAR 

Identifies  the  starting  location  for  the  param¬ 
eter  list 

NPBIS 

Identifies  table  for  current  estimates  of 

Category  2  variables 

NPR 

Number  of  all  parameters  to  solve  for 

NPRCD 

Identifies  table  for  definition  of  Category  2 
variables  to  be  solved  for 

NR 

T 

Starting  location  of  where  the  inverse  A  A 
(in  triangular  form)  is  stored 

NRTMP 

Identifies  the  starting  location  of  temporary 
storage  for  special  handling  of  the  R  matrix 

NSCALE 

Starting  location  of  the  list  of  conversion  fac¬ 
tors  which  convert  all  solution  vectors  and 
associated  matrices  from  machine  to  output 
units  and  vice  versa 

NSMAT 

Identifies  starting  location  of  a  priori  S  matrix 

NSSTB 

Identifies  starting  location  where  station  in¬ 
formation  concerning  computed  sigmas  and 
means  of  residuals  are  stored 

NSTAT 

Starting  location  of  the  master  sensor  table 

NUBS 

Identifies  the  starting  location  of  the  observa¬ 
tion  table 

VSTR 

Floating  point  variable  storage 

2.  Calling  sequence 
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ASSIGN 


ASSIGN 


C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 


M0VE 

Moves  blocks  of  storage  n  cells  either  forward  or 
backward  in  core 

EQUATIONS 


NIC  PR 

Number  of  orbital  elements  to  solve  for 

NDPR 

CAT1  variables 

NPR 

CAT1  +  CAT2 

NIDP 

1 

NPRCD 

NDPR  +  NIDP 

NPBIS 

NPR  -  NDPR  +  NPRCD 

NAR0W  = 

NPR  -  NDPR  +  NPBIS 

NBDNS 

NPR  -  NAR0W  +  1 

NPAR 

NPR  +  NBDNS 

NDPAR1  = 

2*  NPR  +  NPAR 

NDPAR2  = 

NPR  +  NDRAR1 

NDPAR3  = 

NPR  +  NDPAR2 

NDPAR4  = 

NPR  +  NDPAR3 

NSC ALE  = 

NPR  +  NDPAR4 
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ASSIGN 


NIDLED 

=  NPR  +  NSCALE 

NATA 

=  NIDENT  +  2  +  NIDLED 

NR 

=  [(NPR  +  1)  *  (NPR  +  2)  /2  +  NATA 

NRTMP 

=  [(NPR  +  2)  *  (NPR  +  3)]/2  -  1  +  NR 

III 

=  [NPR  *  (NPR  +  1)  /2 

NSMAT 

=  III  +  NRTMP  +  1 

If  [dCFLG(2)1  =  0,  set  NSTAT  =  NSMAT  +  1 
If  DCFLG(2)  =£  0,  set  NSTAT  =  III  +  NSMAT  +  1 
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ATNQF 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ATNQF 

B.  Segment 
ESP0D 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutine 

FUNCTION 

The  function  is  to  obtain,  using  ATANF,  arc  tan  X,  where  X  =  A/B, 
given  A  and  B.  The  range  of  ATNQF  is  -it  and  it. 

USAGE 

A.  Calling  sequence 
ATNQF  (A,  B) 

B.  Input 

1.  cqmmqn 
CPI  IT 

2.  Calling  sequence 
A/B  in  radians 

C .  Output 

1.  C0MM(JN 

2.  Calling  sequence 

-  it  ^  X  —  +  it  in  radians 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 
ATANF 

B.  Program 
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ATM0S 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ATM0S 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutines 

DRAG  (ESP0DDC,  ESP0DEPH) 

FUNCTION 

The  function  is  to  drive  for  density  calculation. 

USAGE 

A.  Calling  sequence 
Call  ATM0S 

B.  Input 

1 .  C0MM0N 

CDRAGM  Input  flag  to  indicate  which  model  atmosphere 
is  to  be  used 

CDRAGM  =  1)  ARDC  1959 

Z)  Paetzold  dynamic 

3)  CC^ESA  static 

4)  C$ESA  dynamic 

If  CDRAGM  =  0,  the  C$ESA  static  atmosphere  is  used 

C .  Output 

1.  C0MM0N 

Z.  Calling  sequence 

SUBROUTINES  USED 
A.  Library 


4-Z5 


ATM$S 


ATM0S 


B.  Program 


ATM59 

DYNAT 

CQ5ESA 


Static  atmosphere 

Dynamic  atmosphere 

Dynamic  and  static  atmosphere 
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ATM59 


ATM59 


SET  UP 
TABLE: 

TAB 

COMPUTE 

ALT 

(EQUATION  1) 

1  =  1 

K  =  K-4 


J  =9 


L  =  J 


?  \  YES 

(K-L)  =  0 


NO 


J  =  J+8 


CALCULATE 

TRH0A 

(EQUATION  2) 


RETURN 


Figure  4-1.  ATM59  Flow  Diagram 


CALCULATE 

THR0A 

(EQUATION  3) 
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ATM59 


SUBROUTINE  IDENTIFICATION 

A.  Title 

ATM59 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutine 

ATM0S  (ESP0DDC) 

DYNAT  (ESP0DEPH) 

FUNCTION 

The  function  is  to  interpolate  from  the  atmosphere  tables  the  density 
of  the  atmosphere  at  given  altitudes,  using  the  standard  ARDC  1959  model. 

USAGE 

A.  Calling  Sequence 
Call  ATM59 

B.  Input 

1.  C0MM0N 

TALT  Altitude  (meters) 

Z.  Calling  sequence 

C.  Output 

1.  C0MM0N 

TRH0A  Density  (kg/m^) 

D.  Error/action  messages 

SUBROUTINES  USED 
A.  Library 


B.  Program 


ATM59 


ATM59 


EQUATIONS 


H 


g 

~G 


o  r 


z 

+"z 


(i) 


p  =  Pi 


(TM>b 


^  +  lm  <H  '  Hb> 


I+(GM  /R 

o  M 


lor  Lm  t  0 


(2) 


-GM  (H  -  H,  ) 

O  D 

R"<TM>b 

where  b  refers  to  the  value  of  the  quantity  at  the  base  of  the  constant 
gradient  layer. 

Note: 

Equation  ( 1 ) 

H  =  geopotential  altitude 

gQ  =  acceleration  of  gravity 

G  =  conversion  constant 

9.80665  where  is 

2  ^  1  meters  of  geopotential 

o  1  M 

r  =  effective  Earth  radius  at  latitude  45  32  33 

Z  =  geometric  altitude 

Equations  (2)  and  (3) 

p  =  Density  obtained  from  calculation 

=  density  at  the  base  of  a  constant  gradient  layer 
where  these  base  values  were  obtained. t 

(T,J,  =  molecular- scale  temperature  at  the  base  of  a 
constant  gradient  layer,  » 


P  =  Pb  exP 


for  L  =  0 
M 


(3) 


^R.A.  Minzner,  K.S.  Champion,  and  H.  L  Pond,  The  ARDC  Model 
Atmosphere,  1959  Air  Force  Surveys  in  Geophys icFTJoT  TT5 
(AFCRC-TR  - 59-267)  Air  Force  Cambridge  Res.  Center,  August  1959. 
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ATM59 


=  molecular  scale  temperature  gradient 

TM  -  <TM»b 

H  -  H, 
b 

Mq  =  sea  level  value  of  molecular  weight 
R*  =  universal  gas  constant 
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BCD0BS 


SUBROUTINE  IDENTIFICATION 


A.  Title 
BCD0BS 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 

L0D0BS 

FUNCTION 

The  function  is  to  read  in  one  observation  card  and  to  pack  the 
information  into  a  format  identical  to  an  observation  format  read  in  on 
the  SRADU  tapes. 

USAGE 


A.  Calling  sequence 
Call  BCD0BS  (SE0F) 

B.  Input 

1.  C0MM0N 

2,  Calling  sequence 

SE0F  Sentinel  block  detection  flag 

C.  Output 


C0MM0N 

TEMP(30) 

Satellite  number 

(A) 

(31) 

Equipment  type 

(A) 

(32) 

Station  number 

(A) 

(33) 

Year 

(34) 

Month 

(35) 

Day 

(36) 

Hour 

(37) 

Minutes 

(38) 

Seconds 

(39) 

E  or  6 

(40) 

A  or  cl 

(A)  =  Alphanumeric 
*  Indicates  packed  information 
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BCD0BS 


BCD0BS 


(41) 

(42) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 


R 

R 

Code  for  R 
At  observation  time 


Time  interval 
Date  or  line  number 
Message  number 
Equinox 
Y  ear 

Observation  number 
Card  type 


(A) 


(A) 

(A) 

(A) 

(A) 


Z.  Calling  sequence 


D.  Error  action  messages 


1.  Off-line  comment: 


n  THE  FOLLOWING  CARD(S)  COULD  NOT  BE  CONVERTED 
ERF  LOCATION.” 


Z.  Action 


NONE 


SUBROUTINES  USED 

A.  Library 

GL0P 

B.  Program 

IDSUB  Strips  blanks  from  I.D. 
XSRCH  Card  image  scan  and  convert 


(A)  =  Alphanumeric 
*  Indicates  packed  information 
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B0DY 


SUBROUTINE  IDENTIFICATION 

A.  Title 
B0DY 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutines 

DAUX  (ESP0DDC,  ESP0DEPH) 

FUNCTION 

The  function  is  to  compute  the  perturbative  acceleration  of  a  spacecraft 
due  to  other  bodies  in  the  solar  system  and  to  account  for  these  effects  in 
the  variational  equations. 

USAGE 

A.  Calling  sequence 
Call  B0DY 

B.  Input 


1.  C0MM0N 


BFLAGS  Flags  to  indicate  which  bodies  are  to  be 
conside  red 


TLIST 


Current  integration  list 


DBASE 


Days  from  1950.0  to  midnight  day  of  epoch 

3  Z 

GM  of  Earth  (e.r.  /min  ) 


CMU 


CGMR 


Ratio  of  Earth,  moon,  sun,  Venus,  Mars, 
Saturn  and  Jupiter  GM  to  that  of  the  Earth 


FLVE 


Flag  to  skip  computation  of  variational 
equations 


NDPR 


Total  number  of  Category  1  variables  to 
solve  for 


Z.  Calling  sequence 
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B0DY 


B0DY 


C.  Output 

1.  C0MM0N 

TBPERT  The  total  acceleration  of  the  vehicle  due  to 
all  the  desired  bodies 

PMAT  Matrix  of  the  position  dependent  effects  in 

the  variational  equations  (the  body  effects 
are  added  to  this  matrix) 

2.  Calling  sequence 

D.  Error  action  messages 


SUBROUTINES  USED 

A.  Library 

B.  Program 
INTPL 
MAGN 
0UTER 

EQUATIONS 

t  h 

The  position  of  the  1  body  with  respect  to  the  Earth,  x^  y.,  z.,  is 
obtained  from  the  ephemeris  tape. 


to 

M  - 

II 

1  2  ; 

h 

+  yi 

X  .  = 

X 

-  X 

VI 

V 

1 

yvi  = 

y  -  y  • 

7  V  7  1 

z  .  = 

z 

-  z . 

VI 

V 

1 

\l/2 


+  z. 
1 


where  x  ,  y  ,  z  is  the  position  of  the  vehicle  with  respect  to  the  earth. 
V  7  v  v  r 


R  .  = 

VI 

[x2.+ 

VI 

2  2  \ 

y  .  +  z  . 

7 VI  Vll 

l/z 

i 

»  # 

u 

V  UL 

(x  -  X.) 
V  1 

X. 

+  _L 

bodies 

1^1  1 

1 

<  UJ 
-M  • 

R3 

i 
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B0DY 


BQDY 


u 


y 

^bodies 

i=l 


(yv  -  yx)  yi 

— 3 — 
r  .  R 

vi  1 


"bodie  s 


u 

Z  M-- 

i=l  1 


(z  -  z.)  z. 

V  1,  1 

“T5-  I3 

VI  1 


PM  AT  = 


PMAT  + 


u 

Z  k- 

i=i  : 1 


u 

X!  h1, 
1=1  1 


u 

Z  M" 

i=l  1 


/3x2. 

VI 

1  1 

u  / 3x  .  y  . 

T*  u  V1  V1 

z  ^  1 

f 3x  .  z  . 

f  VI  VI 

T5" 

\  VI 

2-  5 

1=1  \  R  J 

\  VI  / 

a  i 

l  r5-  j 

i  VI  j 

3x  .  y 

VI  7  VI 

u 

7  u 

3y2  .  \ 

7  VI  1  ] 

u 

[/, 

- 5 — 

4-, 

 5 

_  3 

R 

vi 

i=l 

R 

\  VI 

R 

vi  / 

1  1=1 

'  3x  .  z 

VI  VI 


R“ 


u 


i=l 


vi 


3y  .  z 

7  VI  VI 


R  . 

VI 


3y  .  z 
vi  vi 


R~ 


vi 


u 

Z/i 

i=l 


3  z 


vi  1 


RS  R3. 

vi  vi 


4-35 


BOUNDS 


BOUNDS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
BOUNDS 

B.  Segment 
ESPODDC 

C.  Called  by  subroutines 
FIT 

FUNCTION 

The  function  is  to  scale  bounds  with  a  given  scale  factor. 
USAGE 

A.  Calling  sequence 

Call  BOUNDS  (SCALE) 

B.  Input 

1.  COMMON 

NBDNS  Starting  location  for  the  bounds  in  variable 
storage 

NPR  Number  of  all  parameters  to  solve  for 

2.  Calling  sequence 

SCALE  Scale  factor  for  bounds 

C.  Output 

1.  COMMON 

VSTR  (NBONS)  Contains  bounds  which  are  scaled 

2.  Calling  sequence 

D.  Error/  action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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BOUNDS 


BOUNDS 


EQUATIONS 


B.  =  K  B.  K  =  scale 
1  1 
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CALCSG 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CALCSG 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
SWTSN 

FUNCTION 

Subroutine  CALCSG  calculates  the  CSIG  table  entries  and  stores  them. 
The  sigmas  are  computed  as  a  function  of  credance  as  given  by  the 
particular  observation. 

USAGE 

A.  Calling  sequence 
Call  CALCSG  (A,  I,  C) 

B.  Input 

1.  C0MM0N 

2.  Calling  sequence 
C  Credance 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

A(I)  =  (rR.  <rA 

A(I  +  1)  =  c rE>  o-^ 

Sigmas  are  packed  as  follows: 

Word  1 

W ord  2 

The  sigmas  are  binary  integers  scaled  by  10^  with  binary 
points  at  23  and  47. 


*A 

°E 

^R 
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CALCSG 


SUBROUTINES  USED 

A.  Library 

B.  Program 

EQUATIONS 


0.  26 


A,  E 


R 


R 


1  +  0.  51  c  +  0.  075  c 

_ 43 _ 

1  +  0. 81  c  +  0.  582  c2 

0.  07 

1  +  4. 848  c  -  0.  115  c 


deg 


km 


2  km  /  sec 
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CLTIME 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CLTIME 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
L0D0BS 

FUNCTION 


Function  is  to  take  the  time  in  days  and  fractions  of  days  from  1950.0 
and  compute  the  calendar  date. 

USAGE 

A.  Calling  sequence 
Call  CLTIME(TG) 

B.  Input 

1.  C0MM0N 

CDAYMN  Number  of  days  in  the  month 

2.  Calling  sequence 

TG  Time  in  days  and  fraction  of  days  from  1950 

C.  Output 

1.  C0MM0N 

TEMP(3)  Year 
TEMP(4)  Month 
TEMP(5 )  Day 
TEMP(6)  Hour 
TEMP(7)  Minutes 
TEMP(8)  Seconds 

2.  Calling  sequence 
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CLTIME 


CLTIME 


D.  Error/action  messages 

Action:  Subroutine  error  is  called  if  TG  (time  in  days  and 
fractions  of  days  from  1950.0)  is  negative  or  less  than  1950. 

SUBROUTINES  USED 

A.  Library 

B.  Program 

ERR0R  Error  return 
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C0ESA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
C0ESA 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutines 

DRAG  (ESP0DDC,  ESP0DEPH) 

FUNCTION 

Function  is  to  compute  the  density  at  a  given  altitude  using  U.  S. 

Standard  Atmosphere,  1962,  as  the  model.  This  routine  computes  density 

from  either  a  static  model  or  a  dynamic  model  if  appropriate  parameters 

A  and  Fin  are  input. 
d  i  u 


USAGE 


A.  Calling  sequence 
Call  C0ESA 


B.  Input 


1.  C0MM0N 


TALT 
CAP 
CF10 
TALFAG 
TLIST(2) 
T  LIST  (4) 
T  LIST  (5 ) 
TLIST  (6) 
TR 

CDEG 

CPI 

CWE 

DFL 


Altitude  in  meters 

Ap  for  this  time 

F^q  for  this  time 

Sidereal  time  at  O^1  day  of  epoch 

Time  in  minutes  from  0^  day  of  epoch 

x 


y 


z 


Radius  at  this  time 
Degrees/ radian 


TT 


Rotation  rate  of  the  Earth  (rad/ min) 
Flag  for  first  time  in 


2.  Calling  sequence 


C.  Output 

1.  C0MM0N 

THR0A  density  (kg/m^) 


2.  Calling  sequence 
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C0ESA 


C0ESA 


D.  Error/  action  messages 


SUBROUTINES  USED 

A.  Library 
EXPF 
L0GF 
SINF 
C0SF 

B.  Program 

APF10  Computes  A^ ,  F^q  for  t 
EQUATIONS 

Reference  1. 

This  atmosphere  was  divided  into  two  regions: 

Region  1  extends  from  -5  km  to  90  km 
Region  Z  extends  from  90  km  to  700  km 

Within  these  regions  the  atmosphere  was  further  divided  into  layers 

of  constant  gradient  of  molecular  scale  temperature  with  altitude.  See 

Table  1.4  (e)  for  the  values  of  T  ,  L  and  T  at  the  base  of  each  layer. 

'  '  mm 


F or  Region  1 : 

Density  was  determined  from  the  equations: 


1. 


for  L  =/=  0 
m 


where 


GM^  =  gravitational  parameter 

R*  =  gas  constant 

=  8.3143Z  joules/°K  -  mole 


Reference  1.  United  States  Committee  on  Extension  to  the  Standard 
Atmosphere  (C0ESA),  U.  S.  Standard  Atmosphere ,  196Z,  Washington,  D.  C. , 
1962. 
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C0ESA 


T  =  molecular  scale  temperature 
m  r 

=  gradient  °K/km 
H  =  geopotential  altitude 

and  b  refers  to  the  value  at  the  base  of  the  particular  layer. 


2.  p  =  Pb  exp 


GMo  (H  -  H,/ 

R*(T™)b  . 


for  L  =  0 
m 


The  pressure  equivalent  of  Equations  1  and  2  are  in  Reference  1., 
Equations  I.  2.  10-3  and  I.  2.  10-4. 

In  order  to  avoid  performing  the  integration  for  geopotential  altitude 


(Reference  1,  Equation  I.  2.  5 -  1 ) 


a  polynomial  curve  was  determined. 

3.  H(z)  =  0.99999352  z  -  0.15700906  x  10-6  z2 

+  0.21277556  x  10-13  z3 
where  z  is  the  geometric  altitude. 


For  Region  2: 

Beyond  90  is  a  linear  function  of  geometric  altitude. 

(z  -  z^)  (Reference  1,  Equation  1. 2.6-3 ) 
b 


The  pressure  is  given  by  Reference  1,  Equation  1.2.10-5. 


4.  l°ge  F  =  l°8e 


R* 


in  order  to  evaluate  this  integral  a  polynomial 


C0ESA 


C0ESA 


2  3 

5.  g(z)  =A+Bz+Cz  +  D  z~ 

was  employed,  where 

A  =  9.806853 
B  =  -0.3087135  x  10'5 
C  ='  0.7193415  c  lO'12 
D  =  -0.1236578  x  10"  18 

For  both  Regions  1  and  2  the  program  picks  up  the  proper  base  values 
from  the  table,  TAB  and  solves  Equations  1  through  4.  Excluding  the 
equations  the  program  logic  is  concerned  with  picking  the  proper  values 
from  the  table. 

Between  the  temperature  range  of  800-2100  °K  and  the  altitude 
range  of  200-700  km  and  when  values  of  F^g  and  are  available  the 
atmosphere  solves  equations  to  obtain  a  correction  of  log^  p  to  make 
the  atmosphere  model  semi- dynamic. 

at  start 


a  =  a 
g  g° 

(1) 

at  start  of  each  day 

i) 

Find  the  subsolar  point  a  =  cl  -  180° 

s  g 

(2) 

sin  6  =  sin  (23.5)  sin  a 

s  s 

(3) 

cos  6  =Vl  -  sin^  6 
s  s 

(4) 

2) 

Find  subbulge  point 

qB=qs+3°°  <6b  =  5s) 

(5) 

Let 

Y  i  =  cos  6b  cos  ob 

(6) 

y2  =  cos  6b  sin  «B 

(V) 

y3  =  sin  6B 

(8) 
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C0ESA 


then 


y  =  Yi  +  y2  +  y3 

is  a  unit  vector  directed  at  the  subbulge  point. 

3)  Find  (Reference  1,  Equation  II. 2. 3-5) 
T N  =  1025  +  4.5  (F1q  -  170) 


195.298  A 

Tg  "  57.2957-7; 


+  0.5  cos  2  1  a  _  )  +  1.5  a 


(9) 


T  =  T, 


,[l  +  0.4(  L±££»  ^2-5 


J 


N|  ‘  1  2  J 

which  is  the  half  angle  equivalent  of  Equation  II.  2.3-1  of  Reference  1. 

4)  Prepare  for  the  next  day 

a  =  a  +  1440  oj 
g  g  e 

To  obtain  the  correction  for  dynamic  considerations  at  each  entry 
to  the  routine  the  following  operations  are  performed. 

1)  The  pressure  is  found  in  the  usual  (static)  manner. 


2)  cos  i|jf  = 


x  =  position  vector 


3)  Find  T 

4)  Interpolate  to  get  the  correction  to  the  pressure  (DL0G) 
from  Table  II. 2.  3(b). 


TRH0A  =  TRH0A  x  10 
,DL0G 


DE0G 


(10) 


P  =  p  10 

5)  Convert  from  pressure  to  density 

In  the  table  storage  TAB  of  base  values  for  the  region  above  90  km 
log  p  is  stored.  The  correction  for  the  density  is  also  the  correction 
to  the  pressure,  i.e.,  the  pressure  and  density  are  in  a  1-1  correspondence 
and  one  can  work  with  one  of  the  other  and  then  convert  by  substituting 
into  the  perfect  gas  law. 


P  = 


M  P 
o 


R*T 


m 
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C$ESA 


ENTER 


Figure  4-2.  C$ESA  1962 
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C0ESA 


Figure  4-3.  Dynamic  Consideration  Flow  Diagram 
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CORMAT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
C0RMAT 

B.  Segment 
ESPODDC 
ESPODEPH 

C.  Called  by  subroutines 

APPLY  (ESPODDC) 

UPDATE  (ESPODEPH) 

FUNCTION 


Function  is  to  compute  the  correlation  (cr  and  p)  matrix  given  a  lower 
triangular  variance -covariance  matrix. 

USAGE 

A.  Calling  sequence 

Call  C0RMAT  (A,  I,  B,  J,  K,  L) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 


a. 

A(I) 

T 

A  A  inverse  matrix  stored  at  A(I).  A(I)  is 

assumed  to  be  a  lower  triangular  matrix,  stored 

by  rows.  The  elements  are  denoted  by  a... 
y  y  ij 

b. 

B(J) 

Beginning  location  of  the  B  matrix  (resultant  o" 
and  p  matrix). 

c. 

K 

T  - 1 

Dimension  of  the  (A  A)  matrix. 

d. 

L 

L  =  1,  compute  normal  correlation  matrix  (i.  e.  , 
set  b. .  =  1). 

li 

Output 

1.  COMMON 

2.  Calling  sequence 

B(J)  Correlation  matrix  starting  location. 
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/  < 


C0RMAT 


CQRMAT 


D.  Error /action  messages 

SUBROUTINES  USED 

A.  Library 
SQR  TF 

B.  Program 

EQUATIONS 


a 


1 


b.  . 
U 


n 


1 


n 


For  L  =  1 


b..  =  1 


1 


n 


li 


For  L,  -  Z 


■  ■  =  \  a.  . 

li  V  ii 


1 


n 
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CT0P 


CT0P 


SUBROUTINE  IDENTIFICATION 


A. 

Title 

CTOP 

B. 

Segment 

ESP0D 

ESP0DEPH 

C. 

Called  by  subroutines 

DPRLM 

(ESP0D) 

MNELTC 

(ESP0D) 

TPRNT 

(ESP0DEPH) 

FUNCTION 

Function  is  to  convert  Cartesian  coordinates  to  polar  coordinates. 
USAGE 

A.  Calling  sequence 
Call  C  TOP  (C ,  D) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

C(  1)  X  (e.  r.  ) 

C(2 )  y  (e.  r.  ) 

C(  3)  z  (e.  r.  ) 

C(4)  x  (e.  r.  /min) 

C(5)  y  (e.  r .  /min) 

C(6)  z  (e.  r .  /min) 

C.  Output 
1.  C0MM0N 


2.  Calling  sequence 

D(  1)  a  (radians) 

D (2)  6  (radians) 

D(3)  (3  (radians) 

D(4)  A  (radians) 

D(5)  R(e.r.) 

D(6)  v  (e  .  r .  / min) 


Right  ascension 

Declination 

Flight  path  angle 

Azimuth 

Range 

Velocity 
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CT0P 


CT0P 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
S0R  TF 

B.  Program 

ATNQF  Arc  tangent 

EQUATIONS 

D(  1)  =  a  =  tan 
D(2)  =  6  =  tan 

D(3)  =  p  =  cos 
D(4)  =  A  =  tan 

D(5)  =  r  =  / 

D(6)  =  v  =  *\  +  y^  + 


(y/x)  0  <  a  <  2tt 


/-/  2  2  tt  ^  ^  tt 

://x  +  y  -  y  <  6  < 


(xx  +  yy  +  zz )/ 


rv 


r(xy  -  yx) 


_  r  -  y? _ 

y(yz  -  zy)  -  x(zx  -  x^^ 
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DATE 


DATE 


SUBROUTINE  IDENTIFICATION 


A.  Title 
DATE 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
TGDJD 

FUNCTION 


Function  is  to  compute  the  Gregorian  date,  given  t  in  minutes  from 
0  day  of  epoch. 

USAGE 

A.  Calling  sequence 
Call  DATE(TMIN) 

B.  Input 

1.  C0MM0N 

CDAYMN 
DDAY 
DH0UR 
DMIN 
DMNTH 
DSEC 
DYEAR 
TEMP 

2.  Calling  se 
TMIN 

C .  Output 

1.  C0MM0N 

TEMP(3)  Year 

TEMP(4)  Month 

TEMP(5)  Day 

TEMP(6)  Hour 

TEMP(7)  Minutes 

TEMP(8)  Seconds 

2.  Calling  sequence 


D.  Err  or  /  action  me  ssages 


Number  of  days  in  the  month 

Epoch  day 

Epoch  hour 

Epoch  minute 

Epoch  month 

Epoch  second 

Epoch  year 

Temporary  storage 

quence 

Minutes  from  0  day  of  epoch 
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DATE 


DATE 


SUBROUTINES  USED 

A.  Library 
INTF 
Mtf)DF 

B.  Program 
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DAUX 


DAUX 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DAUX 

B.  Segment 

ESP0DDC 

ESPODEPH 

C.  Called  by  subroutines 

TRAJ 

SETIC 

FUNCTION 


The  function  is  to  compute  the  second  derivatives  in  the  equations  of 
motion  and  control  the  computation  of  the  second  derivatives  in  the  varia¬ 
tional  equations. 


USAGE 

A.  Calling  sequence 
Call  DAUX 


B.  Input 


1. 


COMMON 

T  LIST 
TALFA 

CDAD2M 

CK 

FLVE 

NDPR 


Numerical  integration  working  storage 
Constant  used  in  calculating  radiation  pressure 
effects 

Drag  parameter  cDA/2  m 

Di*ag  parameter  K 

Variational  equation  control  flag 

Number  of  Category  1  variable  to  solve  for 


2.  Calling  sequence 


C.  Output 

1.  CCjMMCjN 

TL.IST  Numerical  integration  working  storage 

TCRASH  Flag  which  indicates  impact  when  non-zero 

2.  Calling  sequence 


D.  Error/  action  messages 
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DAUX 


DAUX 


SUBROUTINES  USED 
A.  Library 


B.  Program 
B(DDY 
DRAG 
POTENT 
MAGN 
RPRESS 
VAREQ 


EQUATIONS 


The  Cowell  formulation  of  the  equations  of  motion  is  used: 

Mi 


R  -  (*2  +  y2  +  z2) 

x  =  ■  —  V*  +  X,  , .  +  X  ,  +  x  ,  ,  .  „  “H  X 


R 


bodies  drag  potential  radiation  pressure 


-|jl  y  ~ 

R  3  ^bodies  ^drag  ^potential  ^radiation  p 


R 


res  sure 


-  [JL  z 


R 


“Hz  “Hz  “Hz  “Hz 

3  bodies  drag  potential  radiation  pressure 


where 


x 


bodies 


"drag 


X 


potential 


"radiation  pressure 


The  perturbation  acceleration  due  to  other 
bodies  in  the  solar  system 

The  perturbation  acceleration  due  to 
atmosphere  drag 

The  perturbation  acceleration  due  to  the 
potential  field  set  by  the  aspherical  earth 

The  perturbation  acceleration  due  to  solar 
radiation  pressure 


The  tests  are  made  to  see  which  of  the  above  perturbation  effects  are 
to  be  included  in  the  evaluation  of  the  equations  of  motion. 
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DON 


DON 


SUBROUTINE  IDENTIFICATION 

A.  Title 
D0N 

B.  Segment 

ESPODDC 

ESPODEPH 

C.  Called  by  subroutine 
DRAG 

FUNCTION 


Function  is  to  calculate  TD0N,  a  modifier  used  in  the  simulation  of 
the  variation  of  the  drag  parameter  C^A/2m. 

USAGE 

A.  Calling  sequence 
Call  DON 

B.  Input 

1.  COMMON 
CKSLCT 

TLIST 
TALFAG 

CPI 
TR 

TEP0CH 

2.  Calling  sequence 

C .  Output 

1.  COMMON 

TDON  Modifier  used  in  the  calculation  of  the  effective 

drag  parameter 

2.  Calling  sequence 

D.  Error/  action  messages 


Flag  to  indicate  whether  periodic  or  secular 
variation  is  desired 
Numerical  integration  working  storage 
Right  ascension  of  the  Greenwich  meridian  at 
midnight  day  of  epoch 

TT 

Magnitude  of  the  position  vector  of  the  vehicle 
relative  to  the  earth 
Minutes  from  midnight  to  epoch 
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DON 


DON 


SUBROUTINES  USED 

A.  Library 

SIN 

SORT 

B.  Program 

EQUATIONS 

If  CKSLCT  =  1 

a)  Compute  the  position  of  the  sun. 

xs  =  c°s  [ago  -  i8°o+ 3^5 (t  -  y 

ys  =  sin  fgo  ■  i8o°+  (t  ■  y  c°s  <23-50) 

Zs  =  Sin  fago  '  180°  +  3^5  (t  '  *oJ  Sin  (23‘  50) 

b)  Compute  the  position  of  the  bulge. 


xb 

cos  (30°)  -sin  (30°)  0 

X 

s 

yb 

= 

sin  (30°)  cos  (30°)  0 

ys 

z. 

0  0  1 

z 

b 

s 

ijj  =  cos 


- 1 


x. 


R 


TDQN  =  j  cos  ^ 


2 

4 


If  CKSLCT  4  1 

TD^N  =  ^ 
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D0T 


D0T 


SUBROUTINE  IDENTIFICATION 

A.  Title 
D0T 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutine 

PAR0UT  (ESP0DDC) 

RPRESS  (ESP0DEPH,  ESP0DDC) 

FUNCTION 


Function  is  to  compute  the  scalar  product  C  =  A  ■  B  if  D  is  non-zero; 
the  routine  stores  the  angle  between  A  and  B  in  E. 

USAGE 

A.  Calling  sequence 

Call  D0T  (A,  B,  C,  D,  E) 

B.  Input 

1.  C0MM0N 


2.  Calling  sequence 

a)  A  The  beginning  location  of  a  three-dimensional  vector 

N  =  (nj,  n2,  n3) 

b)  B  The  beginning  location  of  a  three-dimensional  vector 

M  =  (m i ,  m^,  m^) 

c)  D  D  =  0,  do  not  compute  angle  between  A  and  B 

D  0,  do  compute  the  angle  between  A  and  B 

C.  Output 

1.  C0MM0N 


2.  Calling  sequence 

a)  C  Scalar  product 

b)  E  Angle  between  A  and  B 

D.  Error/ action  me s sage s 
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D0T 


DQT 


SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Programs 

ATNQF  Arc  tangent 

RADSQ  Compute  R  and  R*”  for  X,  Y,  Z 
EQUATIONS 

C  -  njmj  +  n,m,  +  n3m3 
E  =  COS  [Nj  |M| 
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DPRLM 


DPRLM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DPRLM 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 


Function  is  to  set  up  preliminary  information  for  the  pre-processor. 
This  information  concerns  epoch  time  and  mode  of  epoch  position  and 
velocity. 

USAGE 


A.  Calling  sequence 
Call  DPRLM 


B. 


Input 


1.  C0MM0N 

CD  EG  Degrees  /  radian 

CJD50  Julian  date  January  0,  1950 

CWE  Earth's  rotational  rate 

DTYPE  Initial  conditions  type 
TEMP  Temporary  storage 

Z.  Calling  sequence 


C.  Output 

1.  C0MM0N 

DBASE  Number  of  days  from  1950  to  day  of  epoch 
TALFAG  cig  for  midnight  day  of  epoch 
TEP0CH  Epoch  time,  minutes  from  midnight 
TJDATE  Julian  date  of  midnight,  epoch  day 
TN0MP  Initial  spherical  coordinates 
TN0MX  Initial  Cartesian  coordinates 

Z.  Calling  sequence 


D.  Error/ action  me ssage s 
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DPRL.M 


DPRLM 


SUBROUTINES  USED 
A.  Library 


B.  Program 

CT0P 

IPRNT 

ITMPCH 

Convert  Cartesian  to  polar  coordinates 

Prints  header  page 

Punches  the  initial  epoch  time  when  mean 
element  cards  are  input 

MNELTC 

PIM0D 

PT0C 

TINIT 

TMSEP 

Converts  SPADATS  mean  elements  to  Cartesian 
Takes  principle  value  of  angle  between  0  and  Ztt 
Converts  polar  to  Cartesian 

Sets  up  initial  time,  computes  ag 

Modulates  initial  times  and  sets  up  permanent 
storage 
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DPR0S 


DPR0S 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DPR0S 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

Function  is  to  issue  calls  on  the  sensor  and  observation  loading  rou¬ 
tines  if  required. 

USAGE 

A.  Calling  sequence 
Call  DPR0S 

B.  Input 

1.  COMMON 

CLDSTR  Cold-start,  non-cold,  start  flag 

2.  Calling  sequence 

C .  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error /action  mes sages 
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DPR0S 


DPR0S 


SUBROUTINES  USED 
A.  Library 


B.  Program 

L£)D£)BS 

Control  package  for  loading  observation  cards 
from  the  input  tape 

L0DSEN 

Control  package  for  loading  sensors  from  the 
input  tape 

RDC£>M 

Reads  common  block  from  observation  tape 

REWT 

Rewinds  observation  tape 

WRTC0M 

Writes  common  block  from  observation  tape 
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DRAG 


DRAG 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRAG 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutine 
DAUX 

FUNCTION 

Function  is  to  compute  the  perturbative  acceleration  of  a  vehicle  due  to 
atmosphere  drag  and  to  account  for  these  effects  in  the  variational  equations. 


USAGE 


A.  Calling  sequence 


Call  DRAG 


B.  Input 


1.  C0MM0N 


FLVE 

NDPR 

CMTER 

CELLIP 

TLIST 

TRZ 

TR 


Variational  equation  control  flag 

Number  of  Category  1  variable  being  solvedfor 

Constant  =  meters  per  earth  radii 

Constant  =  ellipticity  of  the  Earth 

Numerical  integration  working  storage 

Square  of  TR 

Magnitude  of  the  vector  from  the  center 

of  the  Earth  to  the  vehicle 

Constant  =  rotation  rate  of  the  earth 

(radians/minutes)  =  to 

Drag  parameters  CqA^  2m 

Drag  parameter  variation  K 

Selection  flag  for  periodic  or  secular  variation 
in  drag 


CWE 


CDAD2M 

CK 

CKSLCT 


2.  Calling  sequence 


C.  Output 


1.  C0MM0N 
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DRAG 


DRAG 


TDRAG  Perturbative  acceleration  due  to  drag 

VMAT  Matrix  of  velocity  dependent  terms  in  the 

evaluation  of  the  variational  equations 
PMAT  Matrix  of  position  dependent  terms  in  the 

evaluation  of  the  variational  equation.  (The 
drag  effects  are  added  to  the  contents  of 
this  matrix.  ) 


D.  Error/  action  messages 
SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 

ATM0S 

D0N 

0UTER 

EQUATIONS 


R 


Altitude 

=  R  -  R 

e 

Pa 

=  density 

V 

-  x  +  oj  y 

ax 

e  7 

V 

=  y  -  co  x 

ay 

7  e 

V 

az 

=  z 

1  -  e 


1  -  e  (2  -  e ) 


x2+y2' 

R2  . 


-  T7"2 


radius  of  the  Earth 


Earth-fixed  velocity 


f  2  2  ,  2 

V  =  V  +  V  +  V 

a  ax  ax  ax 


1/2 


0  A 

X  =  ■— —  +  TD0N  •  K 
2m 


Zdrag 

“pa  * 

V 

a 

•  X 

*  V 

ax 

^  drag 

‘Pa’ 

V 

a 

•  X 

•  V 

ay 

Zdrag 

‘Pa* 

V  . 

a 

X  . 

V 

az 
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DRAG 


DRAG 


PMAT  = 


VMAT 


PMAT  -  \p  v 
ra  a 


0 

00 

e 

0 

V  X 

ax 

v  y 
ax7 

v  z 
ax 

-co 

e 

0 

0 

\V  p1 
ar 

\r  v 

v  y 

ay 7 

\r  7 

R 

V  A 

ay 

V  Zj 

ay 

0 

0 

0 

V  X 

az 

v  y 

az7 

v  z 
az 

Xpc 


ax 


v  v 
ax  ay 


v  v  v  v 
ax  ay  az  az 


v  v  v 

ay  ay  az 


v  v  v  v 

ax  az  ay  az 


v 


az 


-co  0  0 

e 


0  0  0 


=  VMAT 


xp. 

"vi 


ax 


v  v 
ax  ay 


v  v 

ax  az 


v  v  v  v 
ax  ay  ax  ax 


V  V  V 

ay  ay  az 


v  v 


v 


ay  az  az 


Ap  v 
ra  a 


0 

1 

0 


0 

0 

1 
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DRDP 


DRDP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRDP 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutines 
RADR 

FUNCTION 

Function  is  to  compute  the  partial  of  the  type  of  observation  with 

respect  to  the  variables,  a,  6,  (3,  A,  r,  v,  CpA/2m  and  K, 

USAGE 

A.  Calling  sequence 
Call  DRDP  (M) 

B .  Input 

1.  C0MM0N 
NAR0W 

NDPR 

PCMR 
PCSA 
PRSUB1 
PSNA 
PSNE 
PSTAT 
PUDTI 
PUI 

PWDTPP 
PWPP 

2.  Calling  sequence 

M  Observation  type  number  (1,  2,  3,  4,  5,  6) 

C .  Output 

1.  C0MM0N 

VSTR(NAR0W)  =~VSTR(NAR0W  +  NDPR-1)  contains  the 

th. 

partial  derivatives  of  the  M  type  observation  with  respect 
to  the  Category  1  variables  being  solved  for 


Starting  location  where  one  row  of  the 
augmented  matrix  (A,  B)  is  stored 
Number  of  all  differential  plus  initial 
parameters  to  solve  for  (Category  1) 
Computed  slant  range 
Cos  A 
Rl  =  VR 
Sin  A 
Sin  E 

Working  storage  for  sensor  information 
u  =  (uj,  u2>  U3) 

(u1;  u2,  U3) 

9w/  dPt 
9w/  9Pi 
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DR  DP 


DRDP 


2.  Calling  sequence 

SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Program 
EQUATIONS 


Range  (type  1  observation) 

9R  9wi  9w 

9p~.  =  U1  9^7  '  "2  9p7  '  "3  9p7 


1  +  „  Li  +  u,  LI  P;  >  6,  p,  A,  t,  v,  CDA/2m,  K 


Azimuth  (type  2  observation) 


9A  _  1 

9p.  =  R 


9w9 

9P~ 


cos  A 


9w 


1 


3w, 


^  sin  6*  +  cos  <j>*  |sin  A 

9p.  9p. 


Elevation  (type  3  observation 


9E  1  [  9wl  A„.  ,  9w3  .  A.„  9R  .  ^ 

w- 3  nr \wr cos  *" +  sin  *-  ■  *,n  E 


Range  Rate  (type  4  observation) 


/  \ 

/ 

J_  \ 

9R 

9w  - 
9pi'U| 

l  i 

9w  | 

9pi  “ 

9pi 

Eocal  Hour  Angle  (type  5  observation) 


9w , 


9w- 


U-,  - 


u. 


9H  =  1 

9p.  d  2  .  21  I  Bp.  -2  9p.  “11 

r  i  R  ui  +  u2  1  n  1 


Declination  (type  6  observation) 
9w. 


9D 

9Pi 


_ 9R_ 

9p{  "  9pi 


sin  D 


R  cos  D 
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DRIVER 


DRIVER 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRIVER 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 

FUNCTION 

The  ESP0D  main  control  serves  as  the  coordinator  of  all  activities 
involving  the  three  segments  ESP$D,  ESP0DDC,  and  ESP$DEPH.  It 
utilizes  existing  EXECM0D1  and  EXECM0D2  routines  for  pulling  these 
segments  off  the  master  tape  when  they  are  needed.  Control  is  always 
returned  to  this  routine  when  any  of  the  three  segments  have  completed 
their  job. 

USAGE 

A.  Calling  sequence 

B.  Input 


C$MM$N 

CLDSTR 

Cold-start,  non-cold  start  flag 

C(?NVR 

Flag  to  indicate  if  previous  case  converged  or 
dive  rged 

DCF  LG 

ESPC^DDC  control  flags 

DNREV 

Control  cells  for  seven-card  input 

FGELEM 

Flag  to  indicate  element  cards  read 

FGIC$N 

Flag  to  indicate  IC$ND  card  read 

IFTEX 

Indicates  mode  of  exit  from  FIT 

NAR$W 

Starting  location  where  one  row  of  the  augmented 
matrix  (A,  B)  is  stored 

NAT  A 

T 

Starting  location  of  where  the  triangular  A  A 
is  stored 
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DRIVER 


DRIVER 


NB  DNS 

Starting  location  for  the  bounds  used  by  LEGS 

NDPAR1 ] 
NDPAR2 ' 
NDPAR3  | 
NDPAR4 

l  Starting  location  where  the  four  sets  of  solution 

f  vectors  will  be  stored 

NDPR 

Number  of  all  differential  plus  initial  param¬ 
eters  to  solve  for  (Category  1) 

NDTCT 

At,  t  table  counter 

N1CPR 

Number  of  initial  conditions  parameters  to 
solve  for 

N1DENT 

Number  of  entries  in  the  N1DLED  list 

N1DLED 

Starting  location  of  where  the  observation 
deletion  table  begins 

N1DP 

Identifier  for  table  indicating  Category  1  type 
variables  to  be  solved  for  (refer  to  1VSTR) 

N1TCT 

Iteration  counter 

NITER 

Maximum  number  of  iterations 

NMBER 

Number  of  observations 

N$EP$C 

Flag  to  indicate  epoch  not  established 

NPAR 

Starting  location  for  the  parameter  list 

NPBIS 

Identifies  table  for  current  estimates  of 
Category  2  variables 

NPR 

Number  of  all  parameters  to  solve  for 

NPRCD 

Identifies  table  for  definition  of  Category  2 
variables  to  be  solved  for  (refer  to  1VSTR) 

NR 

T 

Starting  location  of  where  the  inverse  A  A 
is  stored 

NRTMP 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 

NSCALE 

Identifies  the  starting  location  of  where  the 
scaling  factors  are  stored 

NSMAT 

Identifies  the  starting  location  of  a  priori 

S  matrix 
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Identifies  the  starting  location  where  station 
information  concerning  computed  sigmas  and 
means  of  residuals  are  stored 

Identifies  the  starting  location  of  the  master 
sensor  table 

Identifies  the  starting  location  of  the  observa¬ 
tion  table 

Counters  for  geopotential  routine 

ESP0D  control  flags 
ESP0DEPH  control  flags 
Z.  Calling  sequence 

C.  Output 

1.  C0MM0N 

Z.  Calling  sequence 

D.  Erro  r/action  mes  sages 

SUBROUTINES  USED 

A.  Library 
PANT 

B.  Program 
ASSIGN 
DPRLM 
DPR0S 
ELM$D 
JDCSRCH 
READPR 


Storage  assignments  for  VSTR  and  IVSTR 
Sets  up  preliminary  information 

Drives  the  sensor  and  observation  loading  routines 
Searches  the  SEAI  tape  for  the  orbital  elements 
Searches  the  input  data  for  the  JDC  card 
Preliminary  data  read  routine 


NSSTB 


NSTAT 


NUBS 


PREFLG 

PSTFLG 
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REWT 

Rewinds  the  observation  tape 

SDELET 

Moves  input  storage  into  variable  storage 

SETC0N 

Sets  the  program  constants 

SETTAB 

Sets  up  variable  storage 

SN0MIC 

To  move  the  initial  conditions  from  variable  storage 
into  TN0MX,  TN0MP  or  TMNEL 

STSMAT 

To  convert  the  upper  triangular  S  matrix  from  human 
to  machine  units,  then  move  it  to  variable  storage 

SUPMAT 

To  move  the  initial  update  matrix  from  temporary 
to  permanent  storage 

WRTC0M 

To  write  C0MM0N  data  storage  on  the  work  tape 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
DYNAT 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutines 
ATM0S 

FUNCTION 

The  function  is  to  determine  the  density  of  the  atmosphere  in  the  range 
from  0-1600  km  employing  ARDC  59  and  the  Paetzold  dynamic  atmosphere. 

USAGE 

A.  Calling  sequence 


Call  DYNAT 

Input 

1.  C0MM0N 

ALT 

Table  for  Paetzold  dynamic  atmosphere 

TALT 

Altitude,  meters 

CAP 

A  for  this  time 

P 

CF10 

F10  for  this  time 

PHIH 

Table  for  Paetzold  dynamic  atmosphere 

PSTAR 

Table  for  Paetzold  dynamic  atmosphere 

TALFAG 

y^ 

Sidereal  time  at  0  day  of  epoch 

THETH 

Table  for  Paetzold  dynamic  atmosphere 

TLIST(2) 

y^ 

Time  in  minutes  from  0  day  of  epoch 

TLIST(4) 

X 

TLIST(5) 

y 

TLIST(6) 

z 
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2.  Calling  sequence 

C.  Output 

1.  C0MM0N 

3 

TRH($A  Density,  kg/m 

2.  Calling  sequence 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SINF 
C0SF 

B.  Program 

ATM59  Static  atmosphere  (ARDC  1959  model) 

th 

P$LY  Evaluates  N  order  polynomial 

APF10  Gets  values  of  A^  and  F^q  for  time  found  in  TLIST(Z) 

EQUATIONS 

The  right  ascension  of  Greenwich,  a  ,  is  input  for  time  of  epoch  and 
is  increased  by  a  degree  once  per  day  through  a  test  on  t  -  TE^-1440  min¬ 
utes,  where  TE  is  increased  1440  each  time  a  is  increased.  The  right 

g 

ascension  of  Greenwich  effectively  gives  the  orientation  of  the  earth  for 
the  date  in  question. 

Auxiliary  quantities  a,  b  and  c  are  computed  for  interpolations  in 
altitude  for  the  Paetzold  model,  where  h  is  altitude  in  km. 


a 


x. 


=— ,xi 


i) 


b  =  -(x^  -  l)(Xj  +  1) 


c 


+  1) 
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Here  is  a  function  of  h  only  and  is  computed  according  to  a  series  of 
tests  on  h  in  the  interpolation  routine. 

A  table  is  set  up  for  angles  and  density  related  to  altitude  as  follows: 
m  =  g(a)  +  (ZZO  -  F)[o.  0060  -  0.  00Zg(a)] 

A 

log  p*(h)  =  log  p3(h)  -  i(ZZ0 ,  h)  Z"°F~  -  +  k(Z00,  h)  -  a(ZZ0,  h)m 


+(h)  =  i(ZZ0,  h)  Z0°F  -  0.(h) 


0(h)  =  0s(h)  -  Ax(h) 


i(ZZ0,  h)  —  "  —  +  ma( ZZO ,  h) 


i( ZZO ,  h)  +  a(ZZ0,  h)  A20(h)  F 


where  F  is  an  input  quantity  and  g(a)  is  a  polynomial  related  to  season 
through  a  test  on  the  month,  D 

a  -  99 

D  =  30  1  0.985  +  1 

which  dictates  one  set  of  coefficients  for  D<7  and  another  for  D=*7.  For 
a  given  h,  p*,  ijj,  and  0  are  interpolated  from  the  table  using  a,  b,  c. 

The  density  is  then  computed  as  follows: 
h  =»  1  50  km 


rr—z 

r  =  Vx  +  y 


x  cos  a  +  y  sin  a 

cos  0  = - g— - - s. 


sin  0  = 


- x  sin  a  +  y  cos  a 


sin  20  =  Z  sin  0  cos  0 


2  2 

cos  20  =  cos  0  -  sin  0 
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i(0)  =  A  +  B.  sin  0  +  C,  cos  0  +  B,  sin  20  +  C,  cos  20 

o  1  1  2  2 


f(0)  =  B  +  B,  sin  0  +  C,  cos  0  +  B-.  sin  20  +  C,  cos  20 

o  1  1  2  2 


log  p(h)  =  log  p*(h)  -  4»(h)i(0)  -  0(h)f(0) 


h  «=  130  km 


ARDC  1959  =»  p(h) 


1  3  0  «=  h  <  150  km 


P  = 


4m{[4°0  -  (h  -  130)2]pARDC  +  (h  -  130)2ppae^ 


.  _  piog  P(h) 

pPaet 
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Z 

ec 


4-83 


Figure  4-4.  DYNAT  Subroutine  Flow  Diagram 
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Figure  4-5.  Altitude  Interpolation  Flow  Diagram 


ELMLOD 


ELML0D 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ELML0D 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

This  subroutine  searches  the  SEAI  tape  for  the  orbital  elements 
(initial  conditions)  for  the  satellite  number  in  cell  DVEHN.  If  no  match 
is  found,  a  command  occurs  on  and  off-line. 

USAGE 

A.  Calling  sequence 
Call  ELMLOD 

B .  Input 

1.  COMMON 

DVEHN  Vehicle  number  and  name  (BSD) 

Z.  Calling  sequence 


C .  Output 

1.  COMMON 

DNREV(l) 

DNREV(l) 

DNREV(l) 

DNREV(l) 

DNREV(Z) 

DNREV(Z) 

DNREV(Z) 

DNREV(Z) 


Type  of  input  flag 

=  1  (T  is  input,  flag) 

=  Z  (AN  is  input,  flag) 
=  3  (N  is  input,  flag) 

Input,  number 

=  T  input 
=  AN  input 
=  N  input 
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DNREV(3)  Epoch  revolution  number 

DSDAY  Epoch  time  (days  and  fractions  of  days 

from  1950) 


DYEAR 


Year  of  epoch  (2  digits) 


TMNEL(l) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(8) 


No,  epoch  revolution  number 
axN  N  component  of  a 
aYN  M  component  of  a 
hX  —  ~ 

hY,  components  of  angular  momentum  per 
unit  mass 
hZ 

Lo,  mean  longitude  (rad)  } 

Co,  rate  of  change  of  period  (days/rev  ) 


D.  Error/action  messages 


1  .  Off-line  comment: 

"ELEMENTS  FOR  SATT.  NOT  ON  SEAL" 


2.  On-line  comments: 

"TAPE  04  BAD  -  MOUNT  BACKUP" 

"ELEMENTS  FOR  SATT.  NOT  ON  SEAL 

TYPE  -  GO  TO  REREAD  SEAl,  STOP  FOR  NEXT  CASE." 


3.  Action: 

SUBROUTINE  ERROR 


SUBROUTINES  USED 


A.  Library 

GLOP 

READT 

STARTGO 

STARTRD 

TAPCK 

TAPEOUT 

ZCHEK 

B.  Program 

ERROR  Error  routine 

FLEX  Flexowriter  print  routine 
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ERR0R 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ERR0R 

B.  Segment 

ESP0D 

ESP0DEPH 

ESP0DDC 

C.  Called  by  subroutine 
GENERAL  PURPOSE  ROUTINE 

FUNCTION 

This  is  a  general  error  subroutine.  Cell  3  is  set  in  ESP(J#D  main 
control  by  the  following  instructions:  TJM,  ERR^R.  $L$1;  JMP,  ERR^R. 
The  contents  of  the  A,  Q,  anjl  JA  register  are  printed.  Control  is  returned 
to  ESP0D  to  start  the  next  case. 

USAGE 

A.  Calling  sequence 
Call  ERR0R 

B.  Input 

1.  C0MM(j)N 

2  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error /action  messages 

1.  Off-line  comment: 

"SUBERR  EXIT  OCCURRED,  SUBERR  J  LOC,  PROGRAM 
JMP  LOC,  A  REGISTER,  Q  REGISTER" 

2.  Action: 

Go  to  next  case. 
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ERRQJR 


SUBROUTINES  USED 

A.  Library 

GL$P 

0CT0R 

RPLL0D 

RTETYPE 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
EXIT 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
MNELTC 

FUNCTION 

The  function  is  to  empty  the  output  buffers  and  go  to  the  next  case. 
USAGE 

A.  Calling  sequence 
Call  EXIT 

B.  Input 

1.  C0MM0N 

2.  Calling  sequence 

C.  Output 

1.  common 

2.  Calling  sequence 

D.  Error  /  action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
FIT 

B.  Segment 
ESPQDDC 

C.  Called  by  subroutine 
INTEG 

FUNCTION 


This  subroutine  monitors  the  flow  of  information  throught  the  following 
sequence  of  events; 

a)  Asking  if  this  iteration  is  converging  or  diverging 

b)  Writing  of  C0MMQN  onto  the  tape  7  if  converging 

c)  Forming  the  solution  vector  of  the  differential  correction 
and  applying  it  to  give  new  estimates  of  the  parameters 
being  solved  for 

d)  Setting  the  bounds  for  the  next  iteration 

e)  Punching  current  estimates  of  parameters  being  solved  for 

f)  Writing  of  new  elements  on  tape  7. 

USAGE 

A.  Calling  sequence 
Call  FIT 


B.  Input 


1. 


C(?MM(?N 

IFTEX 

NDPAR1 

NITCT 

NITER 

NPR 


Indicates  mode  of  exit  from  FIT 

Starting  location  where  the  solution  vector  will 
be  stored 

Iteration  counter 

Number  of  entries  in  the  NIDLED  list 
Number  of  all  parameters  to  solve  for 
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Z. 


P0BCNT  Number  of  observations  actually  included  on 
any  iteration 

TEMP  Temporary  storage 

TSUS  Current  RMS 

TSUSB  Best  RMS  so  far 

TSUSP  Predicted  RMS  for  next  iteration 

TZ  Indicates  if  solution  was  affected  by  bounds 

VSTR  Variable  storage 

XBSQ  Scale  factor  for  BNDS  to  cause  subsequent 
solutions  to  be  affected  by  bounds 

CFTEPS  €  for  convergence  criterion 

K(?UT  Output  tape  number 

Calling  sequence 


C.  Output 

1.  CQMMQN 

VSTR  (NBDNS)  Array  in  variable  storage  containing  the 

set  of  bounds  to  be  used  on  the  next  iteration 

Z.  Calling  sequence 

D.  Error /  action  mes sages 

*  *  *  MAJOR  PROGRAM  ERROR,  •  •  •  ,  POSSIBLE  INPUT 
AND/OR  MACHINE  ERROR 

This  message  is  printed  when  the  total  RMS  on  the  first  iteration 
exceeds  the  maximum  floating  point  number  the  machine  can  handle.  The 
action  taken  is  to  return  and  begin  processing  the  next  case. 

SUBROUTINES  USED 

A.  Library 
SQRTF 

GLQP 
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B.  Program 

APPLY 

Applies  DC  solution  vector  and  prints 

BOUNDS 

Scales  bounds  with  a  scale  factor 

EXIT 

Empties  output  buffers  and  goes  to  next  case 

LEGSZ 

Lest  squares  package,  solves  AX  =  B 

NPRPCH 

Punches  IC(?ND,  BISES,  BNDS  values  at  the  end 
of  each  iteration 

REWT 

Rewinds  observation  tape 

WRTCQM 

Writes  C(?MM(?N  block  from  observation  tape 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
GPERT 

B.  Segment 

ESPQJDDC 

ESP0DEPH 

C.  Called  by  subroutines 
PATENT 

FUNCTION 

The  function  of  this  subroutine  is  computing  the  perturbative  acceler¬ 
ation  of  a  spacecraft  resulting  from  the  fact  that  the  Earth  is  not  a  homo¬ 
geneous  sphere.  (The  resulting  harmonics  are  termed  zonal,  sectorial, 
and  tesse ral.  ) 

USAGE 

A.  Calling  sequence 
Call  GPERT 

B.  Input 

1 .  COMMON 

SIPH  Sin  cj>  where  cj>  is  the  geocentric  latitude  of  the 
vehicle 

COPH  Cos 

SILA  Sin  \  where  X.  is  the  east  longitude  of  the  vehicle 
COLA  Cos \ 

SNALFSin  q  where  a  is  the  right  ascension  of  the  vehicle 
CSA.LF  Cos  a 

FJ  Twelve  cell  array  containing  the  values  of  the 

desired  zonal  harmonic  constants 

C  Six  by  six  array  used  in  the  simulation  of  the 

sectorial  and  tesseral  harmonics  (see  JCS  subroutine) 

S  Six  by  six  array  as  above 
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N1  Degree  of  the  highest  zonal  harmonic 

NZ  Degree  of  the  highest  sectorial  harmonic 

N3  Degree  of  the  highest  tesseral  harmonic 

CMU  Earth1  s  GM 

TR  Magnitude  of  the  radius  vector,  Earth  to  vehicle 
TR3  The  cube  of  TR 
Z.  Calling  sequence 


C.  Output 

1.  CQMM0N 

TPQT  Perturbative  acceleration  of  the  vehicle  in  x,  y,  z, 
inertial  coordinate  system  due  to  earth’s  potential 
function 

Z.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

E  QUATIONS 

This  is  a  recursive  computation,  formulated  as  described  in  the 
following  paragraphs. 

Acceleration  in  a  local  rectangular  system  (f,  g,  h)  with  h  along  the 
outward  geocentric  vertical,  f  directed  south  and  g  directed  east. 
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af  =  cos 


N1  (  ?\ 

*  £  J„r'" 

n=Z  J 


NZ 


-m-Z 


+  V  mr  sin  6  (sec  6  p  |(C  cos  mX.  +  S  sm  mM 

Y  I  Y  ml  mm  mm  ' 

m=Z  v  * 


N3  N3 


-  I  l  r'n'2  (“s+C)<c 

m  =  1  n=m+l  v  J 


cos  mX.  +  S  sin  mM 
nm  nm 


a  =  - 
g 


N2 

y  mr 
m=2 


-m-2 


(sec  6  p  )  (C  sin  mk  -  S  cos  m k) 
^  m  J  mm  mm 


N3  N3 


V-  t-T  -n-Z  f  m  X 

"  Z  m  Z  r  (sec  *  pn  )(C 

m  =  l  n=m+l  v  J 


sin  m\  -  S  cos  mk) 
nm  nm 


N1  /  o\ 

-  r  <"+»(V  >n 
n=Z 


-  co  s  4> 


N2 

Z(m  +  1 )  r  m  [sec  6  P  ](C  cos  m  +  S  sin  m\) 
0  1  m  iv  mm  mm 

m=Z  v  J 


N3  N3 


1NO  1NJ  9  r  v 

I  E  (n+l)r-n-2  (.ec+p”“Vc 

tl  =  1  n=m+l  V  n  } 


cosmHS  sinmM 
nm  nm 


where 


pn  =  (j2n  -  1)  sin  <j>  pn_1  -  (n  -  1)  pn_£J  /n 


=  1 


p  =  sin  <j> 


c’  =  sin  ch  p'  .+np  _ 
rn  rn-l  rn-l 


=  1 
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and 


(sec  <f>  P™  j  =  (Zm  -  !)  cos  4>  (sec  4>  Pin-l) 

(sec  cj)  p^)  =  1 


sec  cj)  p 


m 

n 


(Zn  -  1)  sin  c J)  ^sec  <j>  p™  ^  -  (n  +  m  -  1)  |sec  cj)  pln  ^ 


/(n-m) 


m 

sec  cbp  n 

r  m  - 1=0 


and 


m  1 


cos  ^  Pm  I  -  *'msIn4)(seCct)P 


m 

> 

m 


|cos  c|)  p^  j  =  -n  sin  §  |sec  §  p^j  +  (n  +  m)  |sec  <)>  p^  ^ 

These  accelerations  are  then  rotated  to  an  x,  y,  z  inertial  system 
and  scaled  by  the  Earth’s  GM(p.) 


r-  — 

a 

X 

a 

y 

=  M* 

a 

z 

_  ^ 

cos  a  sin  cj>  -sin  a  cos  a  cos  § 

sin  a  sin  <£  cos  a  sin  a  cos  § 

-  cos  <\>  0  sin  § 
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SUBROUTINE  IDENTIFICATION 


A. 


C. 


Title 

HUMAH 

Segment 

ESPOD 

espoddc 

espodeph 

Called  by  subroutines 

APPLY 

(ESPODDC) 

MATPCH 

(ESPODDC) 

NPRPCH 

(ESPODDC) 

UPDATE 

(ESPODEPH) 

STSMAT 

(ESPOD) 

SUPMAT 

(ESPOD) 

FUNCTION 

T 

This  subroutine  functions  in  converting  a  vector,  A  A.  matrix,  or  the 
T  - 1 

(A  A)  matrix  from  machine  units  to  human  units  or  from  human  units 

T  T  - 1 

to  machine  units.  The  A  A  is  an  upper  triangle  matrix  and  the  (A  A) 

is  a  lower  triangular  matrix. 

USAGE 

A.  Calling  sequence 

Call  HUMAH  (A,  I,  B,  J,  K,  L) 

B.  Input 

1 .  COMMON 


2.  Calling  sequence 

a)  A(I)  Starting  location  of  the  array  to  be  converted 

b)  B(J)  Starting  location  of  the  scaling  vector 
Dimension  of  A  and  B 


c)  K 

d)  L 


E  -  +1,  if  a  vector  is  to  be  converted  from 
machine  units  to  human  units 

E  =  -1,  if  a  vector  is  to  be  converted  from  human 
units  to  machine  units 
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L  =  +2,  if  an  A  A  matrix  is  to  be  converted  from 
machine  units  to  human  units 


L  =  -2,  if  an  A  A  matrix  is  to  be  converted  from 
human  units  to  machine  units 


T  - 1 

L  =  +3,  if  an  (A  A)  matrix  ls  to  be 
from  machine  units  to  human  units. 


converted 


L  =  -3,  if  an  (A  A)  matrix  is  to  be  converted 
from  human  units  to  machine  units 


C.  Output 

1.  COMMON 

2.  Calling  sequence 

A(I)  The  matrix  or  vector  A  in  the  changed  units 
defined  by  L 

D.  Error/  action  messages 

SUBROUTINES  USED 

A.  Library 
XABSF 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
IDSUB 

B.  Segment 
ESPOD 

C.  Called  by  subroutines 

BCDOBS 

OBSLOD 

READPR 

SENRD 

SNSGET 

FUNCTION 

This  subroutine  replaces  leading  blanks  of  four  character  sensor 
numbers  with  zeros.  Enter  this  subroutine  with  the  four  characters  right 
adjusted  in  the  A.  register  and  exit  with  the  ID  in  the  A  register. 

USAGE 

A.  Calling  sequence 
Call  IDSUB  (A) 

B .  Input 

1.  COMMON 

2.  Calling  sequence 

A  Contains  sensor  number  to  be  checked 

C .  Output 

1.  COMMON 

2.  Calling  sequence 

A  Leading  blanks  of  A  replaced  by  zeros 

D.  Error/ action  messages 


4-101 


IDSUB 


IDSUB 


SUBROUTINES  USED 
A.  Library 


B.  Program 
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INTEG 


SUBROUTINE  IDENTIFICATION 

A.  Title 
INTEG 

B.  Segment 
ESPODDC 

C.  Called  by  subroutines 
ESPOD 

FUNCTION 

This  subroutine  controls  the  logical  flow  of  information  through  the 
differential  correction  package  (ESPODDC). 

USAGE 

A.  Calling  sequence 
Call  INTEG  (EXIT) 

B.  Input 

1.  COMMON 


COUNT 

DCFLG 

IFTEX 

PSIG 

TALT 

TG 

TRHOA 

MT 

IOUT 


Lines  counter 

Dc  package  control  flags 

Indicated  mode  of  exit  from  FIT 

Sigma  list 

Altitude,  meters 

Time  to  integrate  to 

Density,  kg/m^ 

Observation  tape  number 
Output  tape  number 


2.  Calling  sequence 


C.  Output 


1.  COMMON 


2.  Calling  sequence 


EXIT 


Gives  the  status  (convergence  or  divergence) 
of  the  differential  correction  (see  IFIT) 


D.  Error/ action  messages 
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INTEG 


SUBROUTINES  USED 
A.  Library 


B.  Program 
FIT 

PAR  SET 

PRSSTB 

RADR 

RDC(?M 

REWT 

SELECT 

SETIC 

TPRLM 

TRAJ 

WRTCOM 

REJECT 


Logic  control  for  dc  options 
Initialize  partials  package 
Compute  and  print  residual 
Driver  for  partials  package 

Reads  CC^MMC^N  block  from  observation  tape 

Rewinds  observation  tape 

Select  next  time  to  integrate  to 

Initialize  integration  list 

Sets  up  data  for  integration  program 

Driver  for  integration  program 

Writes  C0MM(j)N  block  on  observation  tape 

Computes  final  values  of  RMS  by  observation 

type  from  accepted  observations  of  the  last 

pass 
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INTPL 


SUBROUTINE  IDENTIFICATION 

A.  Title 
INTPL 

B.  Segment 

ESP0DDC 

ESPQDEPH 

C.  Called  by  subroutines 

BODY  (ESPODDC,  ESPODEPH) 
RPRESS  (ESPQDDC,  ESPQDEPH) 

FUNCTION 


The  function  of  this  subroutine  is  to  read  the  ephemeris  tape  for  the 
positions  of  the  sun  and  moon  or  for  the  positions  and  velocities  of  the 
sun,  moon,  Mars,  Venus,  Jupiter,  and  Saturn  with  respect  to  the  Earth 
and  to  rotate  these  coordinates  to  true  of  midnight  day  of  epoch. 

USAGE 

A.  Calling  sequence 

Call  INTPL  (VEL,  T,  BASE) 

B.  Input 

1.  CQMMQN 

CJD50  Julian  date  of  1950.  0 

CKMER  Kilometers  per  Earth  radii  constant 

2.  Calling  sequence 

VEL  Flag:  if  0,  position  of  sun,  moon  only;  if  1, 

positions  and  velocities  as  described  above. 

T  Time  in  minutes  from  midnight  day  of  epoch 

BASE  Days  from  1950.  0  to  midnight  day  of  epoch 

C.  Output 

1.  COMMON 

XN  Positions  of  Earth,  moon,  sun,  Venus,  Mars, 

Saturn,  and  Jupiter  referenced  to  the  Earth 

XNDOT  Velocities  of  above  bodies  with  respect  to  the 
Earth 
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INTPL 


Z.  Calling  sequence 


D.  Error  /action  messages 

1.  If  the  time  requested  is  after  December  19,  1969,  the 
following  message  is  printed  off-line: 

*  *  *  EPHEMERIS  TAPE  ARGUMENT  TOO  LARGE  .  .  . 

T  =  +  .  XXXXXXXXXXX  SECONDS  FROM  1950.  0 

and  the  program  goes  onto  the  next  case  through  the 
subroutine  ERR$R. 

Z.  If  the  time  requested  is  before  August  Z 8,  I960,  the 
following  message  is  printed  off-line: 

*  *  *  EPHEMERIS  TAPE  ARGUMENT  TOO  SMALL  .  .  . 

T  =  +  .  XXXXXXXXXX  SECONDS  FROM  1950.  0 

and  the  program  goes  onto  the  next  case  through  the 
subroutine  ERRQR 

3.  If  an  end-of-file  is  encountered  while  reading  the 

ephemeris  tape,  the  following  message  is  printed  off-line: 

*  *  *  END  OF  FILE  ENCOUNTERED  READING  THE 

EPHEMERIS  TAPE 

and  the  program  goes  onto  the  next  case  through  the 
subroutine  ERRQ)R. 

SUBROUTINES  USED 


A. 

Lib  rary 

B. 

Program 

INTR 

R(?TRU 

GL0P 

ST(?PG0 

FLEX 

EQUATIONS 


None 
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IPRNT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
IPRNT 

B.  Segment 
ESP0D 

C.  Called  by  subroutines 

DPR  EM 
L0D0BS 

FUNCTION 

The  function  is  to  print  out  the  header,  initial  conditions,  vehicle 
number  and  name.  If  I  =  1,  the  routing  gives  the  normal  output  (i.  e., 
header,  initial  conditions,  vehicle  number  and  name).  If  I  =  2,  "NEW 
EPOCH”  is  printed  with  only  the  epoch  time,  and  the  initial  conditions  are 
included. 

USAGE 

A.  Calling  sequence 
Call  IPRNT  (I) 

B.  Input 

1.  C0MM0N 

CDAD2M 
CDEG 
CLDSTR 
DDAY 
DHEAD 
DH0UR 
DMIN 
DMNTH 
DSEC 
DVEHN 
DYEAR 
HEADER 
PREFEG 
TAEFAG 
TEMP 
TN0MP 
TN0MX 

2.  Calling  sequence 

1=1,  normal  output 
I  =  2,  print  "NEW  EPOCH” 


Cp  A/2m 
Degrees/  radian 

Cold-start,  non -cold  -  start  flag 
Epoch  day 

Header  from  JDC  card 

Epoch  hour 

Epoch  minute 

Epoch  month 

Epoch  second 

Vehicle  number  and  name 

Epoch  year 

Contents  of  REM  card 
Preprocessor  control  flags 
a.g  for  midnight  day  of  epoch 
Temporary  storage 
Initial  spherical  coordinates 
Initial  cartesian  coordinates 
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IPRNT 


C.  Output 

1.  C0MM0N 


2.  Calling  sequence 


D.  Error /action  messages 
SUBROUTINES  USED 

A.  Library 

GL0P 

PANT 

B.  Program 

PRCONS  Prints  the  program  constants 
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ITMPCH 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ITMPCH 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DPR  EM 

FUNCTION 


This  subroutine  punches  the  ICTYP  =1.0  and  the  ITIME  cards.  It  is 
entered  only  when  SPADATS  seven-card  element  sets  are  input  or  elements 
are  obtained  from  the  SEAI  tape. 

USAGE 

A.  Calling  sequence 
Call  ITMPCH 

B.  Input 

1.  C0MM0N 

DDAY 
DH0UR 
DMIN 
DMNTH 
DSEC 
DTYPE 
DYEAR 

2.  Calling  sequence 


C.  Output 

1.  C0MM0N 


2.  Calling  sequence 


D.  Error /action  messages 


Epoch  day 

Epoch  hour 

Epoch  minute 

Epoch  month 

Epoch  second 

Initial  conditions  type 

Epoch  year 
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ITMPCH 


SUBROUTINES  USED 

A.  Library 
GL0P 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
JCS 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutine 
TPRLM 

FUNCTION 

This  subroutine  sets  up  working  storage  for  simulation  of  zonal, 
sectorial,  and  tesseral  harmonics  of  the  Earth's  potential  function. 

USAGE 

A,  Calling  sequence 
Call  JCS 

B.  Input 

1.  COMMON 
Z0NAL 

SECT 

TESS 

CJ 

CJNM 

CLAMNN 
CDEG 


Array  of  11  flags,  non-zero  to  include  the 
desired  harmonic  (J,,  J^,  .  .  .  ,  J^) 

Array  of  five  flags,  non-zero  to  include  the 
desired  sectorial  harmonic  (J9^,  J^,  .  .  .  ,  J^/5) 

Array  of  code  words  for  selection  of  tesseral 
harmonics,  where  each  cell  is  of  the  form 
N  *  10  +  M  where  N  is  the  degree  and  M  the  order 
of  the  desired  tesseral 

Twelve  cell  array  containing  the  values  of 
J2’  J3’  •  •  •  ’  J12 

Six  by  six  array  containing  ,  J2~>  .  .  .  ,  J 
along  the  main  diagonal,  J3I,  .  .  .  ,  J  ^  below 

the  diagonal  and  X3I,  •  •  •  >  X. ^  above  the 

diagonal 

Z  3  6 

Five  cell  array  containing  ,  .  .  .  , 

Degrees  per  radian  constant 
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2.  Calling  sequence 


C.  Output 

1.  COMMON 

FJ  Twelve  cell  array  which  contains  0,  J  ^  or  0,  J,  or 

J,.  or  0 
12 

C  Six  by  six  array  used  in  simulation  of  sectorial  and 

tesseral  harmonics 

S  Six  by  six  array  used  in  simulation  of  sectorial  and 

tesseral  harmonics 

N1  Degree  of  largest  zonal  harmonic  requested 

N2  Degree  of  largest  sectorial  harmonic  requested 

N3  Degree  of  largest  tesseral  harmonic  requested 

2.  Calling  sequence 

D,  Error/action  messages 

If  the  order  of  a  requested  tesseral  is  greater  than  or  equal  to  the 
degree,  the  following  message  is  printed  off-line: 

*  *  *  ILLEGAL  TESSERAL  NM  REQUESTED,  THE  PROGRAM  IS 
IGNORING  IT  AND  PRECEEDING. 

SUBROUTINES  USED 

A.  Library 

C0S 

SIN 

B.  Program 

EQUATIONS 


C  =  J 
n,  m  n 


cos  (m  X  n , m) 
m  '  7 


S  =  J 
n ,  m  n 


m 


sin  (m  X  n,  m) 
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JDCSRCH 


SUBROUTINE  IDENTIFICATION 


A.  Title 


JDCSRCH 


B.  Segment 
ESP0D 


C.  Called  by  subroutine 
READPR  (ESPOD) 

FUNCTION 

This  subroutine  searches  the  input  data  for  a  JDC  card.  When  a  JDC 
card  is  found,  flags  are  set  for  READPR  and  for  the  control  of  the  entire 
orbit  determination  program. 


USAGE 


A.  Calling  sequence 


CALL  JDCSRCH 

B.  Input 
CARBUF 

C .  Output 

1.  C0MM0N 

DATA,  DATA  +  1200 

FGICON 

FGITIM 

FGICTY 


FGELEM 

FGCAT1 

FGCAT2 

FGBNDS 

FGDELE 

FGAUX 


\  set  to  0.  0 


J 


DVEHN 

DHEAD 

CLDSTR 

PREFLG 

DCF  LG 

PSTFLG 


\  set  according  to  JDC  card 
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D.  Error/. action  messages 


Message 


Meaning  and  Action 


NO  JDC  IN  400  CARDS 


JDC  CARD  NOT  FOUND. 
ID  WHICH  TERMINATED 
RUN  IS  AAAAAAAA 


No  JDC  card  could  be  found  in  400 
input  data  cards.  Job  is  terminated 
by  transfer  of  control  to  READPR  • 
GET0FF. 

A  identification  name  (AAAAA)  was 
found  to  be  either  ENDAT,  ZZZZZ, 
or  EEEEE.  Job  is  terminated  by 
transfer  of  control  to  READPR  • 
GET(?FF. 


SUBROUTINES  USED 

A.  Library 

B.  Program 

RDC0M  Read  in  COMMON  if  a  non-cold  start 


PANT 

Eject 

GL0P 

Place 

FLEX 

Type 

READPR  -  RD0NE 

Read 

XSRCH 

Read 

CROSS  REFERENCES 

READPR  -  CARDIM 
READPR  -  ID  1 
READPR-  ID2 
READPR-  DC8 
READPR-  DC9 
READPR-  DC  1 0 
READPR-  DC  1 1 
READPR-  DC12 
READPR- GET0FF 


a  page  for  next  case 
error  messages  on  output  tape 
error  message  on  console  typewriter 
one  card  and  print  it 
the  JDC  card  in  proper  format 
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LEGS1 


SUBROUTINE  IDENTIFICATION 

A.  Title 
LEGS  1 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
RADR 

FUNCTION 

This  subroutine  transforms  the  augmented  matrix  (A,B)  of  the  system 
Ax  =  B  into  the  augmented  normal  matrix. 


T  T 

A *  1  A  A  B 

T  T 

B  A  B  B 

Since  the  augmented  normal  matrix  is  symmetric,  only  the  upper  triangle 
part  is  stored.  Also,  if  a  row  is  deleted,  the  count,  P0BCNT,  is  reduced 
by  1 . 


USAGE 


A.  Calling  sequence 

Call  LEGS1  (K,  13,  SUS) 


B.  Input 

1.  C0MM0N 

IVSTR  Fixed  point  variable  storage 

NAR0W  Identifies  the  starting  location  where  1  row 

of  the  augmented  matrix  (A,  B)  is  stored 


NATA 


Identifies  the  starting  location  of  where  the 
triangular  ATA  is  stored 


NBDNS 

NPR 


Identifies  the  starting  location  for  the  bounds, 
used  by  LEGS2 

Number  of  all  parameters  to  solve  for 
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LEGS  1 


NIDLED  Identifies  the  starting  location  of  where  the 

observation  deletion  table  begins 

P0BCNT  Number  of  observations  actually  included  on 
any  one  iteration 

2.  Calling  sequence 

K  Row  number  of  A 

T 

13  13  is  used  only  when  K  =  1 .  If  13  >  0,  the  A  A  section 

is  cleared  before  computing  A^A.  If  13^0,  the  section 
is  not  cleared. 

C.  Output 

1.  C0MM0N 

T 

VSTR  (NATA)  Where  the  triangular  A  A  is  stored 

2.  Calling  sequence 

SUS  Current  sum  of  squares  of  weighted  residuals 

D.  Error/ action  messages 

SUBROUTINES  USED 

A,  Library 

B.  Program 
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LEGS  1 


Figure  4-6  a.  LEGS  1  Flow  Diagram 
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LEGS  1 


Figure  4-6  b.  LEGS1  Flow  Diagram  (Continued) 
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LEGS2 


SUBROUTINE  IDENTIFICATION 

A.  Title 
LEGS2 

B.  Segment 

ESPQ)DDC 

ESP(?DEPH 

C.  Called  by  subroutine 

FIT  (ESPODDC) 
UPDATE  (ESP0DEPH) 

FUNCTIONS 


a)  To  solve  an  overdetermined  linear  system  of 
equations  Ax  =  b 

T 

b)  To  compute  the  inverse  of  A  A 

c)  After  solving  for  x,  to  compute  J  ( Ax  -  b[| 

USAGE 

A.  Calling  sequence 

Call  LEGS2  (NDPAR ,  Z,  SUSP,  II,  12,  14) 


B.  Input 

1.  CQMMQN 
IVSTR 

NATA 


Fixed  point  variable  storage 

Identifies  the  starting  location  of  where  the  upper 
triangular  A^A  is  stored 

NBDNS  Identifies  the  starting  location  for  the  bounds  used 
by  EEGS2 

NPR  Number  of  all  parameters  to  solve  for 

NR  Identifies  the  starting  location  of  where  the  inverse 

ata  (in  triangular  form)  is  stored 

XBSQ  Scale  factor  for  BNDS  to  cause  subsequent  solutions 
to  be  affected  by  bounds 

2.  Calling  Sequence 

NDPAR  The  index  for  variable  storage  where  the  solution 
vector  x  is  to  be  stored 


11 

12  \ 
14 


Option  control  flags 


LEGS2 


LEGS2 


C.  Output 

1.  C0MM0N 

Start  of  the  array  containing  the  solution 
vector  x 

T  - 1 

Start  of  an  array  containing  (A  A)  as 
a  lower  triangular  matrix 


Flag  to  indicate  if  the  solution  was 
affected  by  the  bounds.  If  the  flag  is 
non-zero  the  solution  was  affected  by 
the  bounds 

Predicted  SOS  for  the  next  iteration 

SUBROUTINES  USED 
A.  Library 


B.  Programs 


VSTR  (NDPAR ) 

VSTR  (NR) 

2.  Calling  sequence 
Z 

B 


EQUATIONS 

2> 

To  solve  for  differential  corrections,  find  x  so  that  |  Ax  -  b  J|  is 
minimum  under  the  side  condition  that 


Z 


<  i 


Bl>  B2, 


=  bounds 


The  side  condition  may  be  described  as 


B~^  is  a  diagonal 
matrix 


where 

T  -2 

x  B  x  <  1 
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LEGS2 


Bounds 


Define  x(z)  as  the  solution  of  the  linear  system 


T  -2  T 

(A  A  +  zB  c)  X  =  A  b 


where  B  is  the  diagonal  matrix  with  the  (i,  i)  diagonal  element  being 
B^  if  B^  >  0  and  B^  <  0.  If  B^  =  0,  the  i ^  row  and  column  of  the  augmented 
normal  matrix  is  ignored  and  x^  is  set  to  zero. 

-2 

a)  The  routine  finds  x  =  x(0).  If  (B  x,  x)  <  1  4-  e,  the  solution 
is  obtained.  Otherwise 

b)  Define  y(z)  =  [b  ^  x(z),  x(z)J.  Now  y(0)  >14-  €^.  Compare 
y(h),  y(l  Oh),  y(100h),  •  •  •  ,  until  a  value  of  z  is  found  with 

1  -  €  2  <  y(z)  <  1  4-  ,  in  which  case  x(z)  is  the  solution  or 

until  two  values  of  z  are  found  with  y(z^)  >  1  4-  and  y(z£) 

<  1  -  €2‘  The  required  value  of  z  is  now  bracketed.  Then 

c)  Choose  a  value  z^  between  z^  and  Z2.  If  1  -  €2  <  y ( z3 )  <  1 
+  €  ^ i  then  y(  z^)  is  the  solution.  Otherwise 

d)  Use  inverse  quadratic  interpolation  (to  zero)  to  obtain  a  new 
guess  Z4.  If  1  ~  € 2  —  y(z4>  I  +  €i,  then  x  (Z4)  is  the 
solution.  Otherwise 

e)  Select  from  the  set  z^,  Z2,  Z3,  Z4  the  two  values  of  z  which 
bracket  the  solution  most  tightly.  Use  these  values  as  z^  and 
Z2  and  go  back  to  3. 

The  iterative  process  will  stop  if  the  number  of  solutions  of  the  linear 
system  reaches  20. 


Linear  System 

T  -2  T 

Let  C  =  A  A  4-  zB  .  The  routine  finds  a  matrix  S  with  SCS  =  D. 

S  is  lower  triangular  with  (-1)  on  the  diagonal.  It  is  easy  to  find  S  and  D 

for  a  1  x  1  matrix  C.  Assume  S  and  D  have  been  found  for  a  k  x  k  matrix  C. 

Now  augment  C  by  another  row  and  column 


d^ 

aJ 
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LEGS2 


A  vector  co  and  a  scalar  (3  are  now  desired  such  that 

/A  A 


CO 


V°  -lJ 


The  requirements  are  satisfied  by 


T  -1 

co  =  S  D  Sd 


(3  =  a  -  go  d 


The  routine  builds  the  matrix  S  by  the  above  process  with  k  =  2,  3, 
The  final  result  is  a  decomposition  of  the  augmented  matrix 


L  GO 


T  -2 

A  A  +  zB 


co 


A  fD  oA 


-0 


V°  aj 


•  ,  N. 


and  the  N -dimens ional  vector  go  which  appears  above  is  the  solution  vector. 

Predicted  RMS  for  Next  Iteration 
T  T  T 

Given  b  b,  A  A,  A  b,  X,  n  =  total  number  of  observations 


Predicted  RMS 


=  —  "VbTb  -  2  xT  (ATb)  +  xT  (ATAx) 
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LINES 


SUBROUTINE  IDENTIFICATION 

A.  Title 
LINES 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
L0D0BS 

FUNCTION 

The  function  of  this  subroutine  is  to  eject  a  page  and  to  print  a  heading 
top  of  the  page  after  57  lines  have  been  printed. 

USAGE 

A.  Calling  sequence 
Call  LINES  (A,  I) 

B.  Input 

1 .  C0MM0N 

2.  Calling  sequence 
A  Line  counter 
I  Not  used 

C.  Output 

1  .  C0MM0N 

2.  Calling  sequence 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 
GL0P 
PANT 

B.  Program 
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LINES 


SUBROUTINE  IDENTIFICATION 

A.  Title 
LINES 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutines 
PARSET 

PUPB 

RADAR 

UBRERR 

FUNCTION 

The  function  is  to  count  the  number  of  lines  and  when  the  page  is  full, 
th 

the  I  message  is  printed  at  the  top  of  the  next  page. 

USAGE 

A.  Calling  sequence 
Call  LINES  (A,  I) 

B.  Input 

1.  C0MM0N 

DCFLG  DC  package  control  flags 

K(/>UT  Output  tape  number 

2.  Calling  sequence 

A  Number  of  lines 
I  Page  heading  number 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 
GL0P 

B.  Program 
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L0D0BS 


SUBROUTINE  IDENTIFICATION 


A.  Title 

L0D0BS 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DPR0S 

FUNCTION 


The  function  is  to  control  the  logic  flow  in  loading,  storing,  sorting, 
and  printing  the  observations  to  be  used  in  the  differential  correction. 

USAGE 

A.  Calling  sequence 
Call  L0D0BS 

B.  Input 
1.  C0MM0N 

CDEG 
CKMER 

cOmlst 

C0UNT 
DBASE 
DBUFS 
DNREV 
DSDAY 
NMBER 
N$EP<Z>C 
PREFLG 
TEMP 
TEP0CH 


2. 

Calling  sequence 

C.  Output 

i. 

C<Z>MM(Z>N 

2. 

Calling  sequence 

Degrees/ radian 
km/e .  r. 

Dimension  of  C0MM0N 
Dines  counter 

Number  of  days  from  1950.0  to  day  of  epoch 

Auxiliary  buffer  storage 

Control  cells  for  seven-card  input 

Epoch  day,  days  from  beginning  of  year 

Number  of  observations 

Flag  to  indicate  epoch  not  established 

ESP(/>D  control  flags 

Temporary  storage 

Epoch  time,  minutes  from  midnight 
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B0D0BS 


D.  Error/ action  messages 

1.  Off-line  comment 

"0BS  OVERFLOW  CORE,  NOT  IN  REVERSE  SORT,  ERROR" 

2.  On-line  comment 

"0BS  OVERFLOW  CORE,  NOT  IN  REVERSE  SORT,  ERROR" 

3.  Action 
Subroutine  error 

SUBROUTINES  USED 


Library 

GL0P 

PANT 

P  rog  ram 

BCD0BS 

Reads  one  observation  card 

CKRSRT 

Checks  to  see  if  observations  are  in  reverse 
time  sort 

CLTIME 

Converts  input  time  into  Gregorian 
representation 

ERR0R 

General  error  routine 

FLEX 

Flexowriter  print  routine 

IPRNT 

Prints  header  page 

LINES 

Keeps  track  of  the  number  of  lines/page 

MNELTC 

Converts  SPADATS  mean  elements  to  Cartesian 

0BSIN 

Moves  observations  from  buffer  to  permanent 
storage 

0BSB0D 

Loads  observations  from  the  SRADU  tape 

0BSSRT 

Sorts  observations  to  time  sequence 

REWT 

Rewinds  observation  tape 

SWTSN 

Monitors  set  up  of  observation  data 

WE0FT 

Writes  sentinel  block  on  observation  tape 

WRT0BS 

Generates  observation  tape 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
L0DSEN 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DPR0S 

FUNCTION 

The  function  is  to  clear  out  sensor  and  observation  storage  and  control 
the  logic  flow  in  loading,  converting,  and  compacting  sensor  data. 

USAGE 

A.  Calling  sequence 
Call  L0DSEN 

B.  Input 

1.  C0MM0N 

C0MLST 
DBUFS 
NSSTB 

NSTAT 
NUBS 
PREFLG 
TEMP 
VSTR 

2.  Calling  Sequence 

C.  Output 
1 .  C0MM0N 


Dimension  of  C0MM0N 
Auxiliary  buffer  storage 

Identifies  the  starting  location  where  sta¬ 
tion  information  concerning  sigmas  and 
means  of  residuals  are  stored 

Starting  location  of  the  master  sensor  table 

Starting  location  of  the  observation  table 

ESP0D  control  flags 

Temporary  storage 

Floating  point  variable  storage 
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Z.  Calling  sequence 

D.  Error/  action  messages 
1  .  Off-line  comment: 

"SENSOR  DATA  OVERFLOWS  C0MM0N,  ERR0R.  11  is 
printed  if  the  sensor  data  overflows  C0MM0N  and  the 
ERR0R  subroutine  is  called. 

2.  Action: 

Go  to  ERR0R  subroutine. 

SUBROUTINES  USED 
A.  Library 


GL0P 

PANT 


B.  Program 

ALS0RT  Alphanumeric  sort  routine 


ERR0R 


Error  routine 


SENIN 


Moves  sensor  data  from  buffer  to  permanent 
storage 


SENRD 


Reads  one  sensor  card  from  input  tape 


SENSCH 


Searches  the  sensor  table  for  a  match  with 
sensor  card  I.  D. 


SNSGET  Reads  sensor  information  from  SEAI  tape 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MABAT 

B.  Segment 
ESPODEPH 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 

T 

The  function  is  to  compute  R*  =  URU  ,  where  U  is  an  N  x  N 
full  matrix  and  R  is  an  N  x  N  lower  triangular  matrix.  The  result,  R*, 
will  be  a  lower  triangular  matrix 

USAGE 

A.  Calling  sequence 

Call  MABAT  (U,  II,  R,  12,  RS,  13,  14) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

U(I1)  Starting  location  of  U  matrix 
R(I2)  Starting  location  of  R  matrix 
14  Dimension  of  U,  R  and  R*  matrices 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

RS  (13)  Starting  location  of  the  R*  matrix 

D.  Error/  action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 


4-129 


MAGN 


MAGN 


SUBROUTINE  IDENTIFICATION 


A.  Title 
MAGN 

B.  Segment 

ESPODDC 

ESPODEPH 

C.  Called  by  subroutines 

BODY 

DAUX 

DOT 

RPRESS 

PAR0UT 

FUNCTION 


Function  is  to  compute  magnitude  and  magnitude  squared  of  a  given  vector. 
USAGE 

A.  Calling  sequence 

Call  MAGN  (A,  I,  B,  C) 

B .  Input 

1 .  COMMON 

2.  Calling  sequence 

A  Name  of  array  containing  the  vector 

I  Subscript  locating  x  component  of  desired  vector  in  A 

C .  Output 

1.  COMMON 

2.  Calling  sequence 

B  Magnitude  of  vector 

C  Magnitude  squared 

D.  Error/  action  messages 
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SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 

EQUATIONS 

_  2,2,2 

C  =  R  =  x  +y  +  z 

B  =  R  =  Vr^ 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MATPCH 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutines 
NPRPCH 

FUNCTION 

T 

The  function  is  to  punch  A  A  inverse  matrix  in  human  units  from  VSTR 

T 

(NR),  if  DCFLG  (3)  is  not  equal  to  zero,  and  to  punch  the  A  A  matrix  in 
human  units  from  VSTR  (NAT A),  if  DCFLG  (4)  is  not  equal  to  zero. 

USAGE 

A.  Calling  sequence 
Call  MATPCH 

B.  Input 

1.  C0MM0N 


DCFLG 


DC  package  control  flags 


NATA 


Identifies  the  starting  location  of  where  the 
upper  triangular  A^A  is  stored 


NPR 


Number  of  all  parameters  to  solve  for 


NR 


Identifies  the  starting  location  of  where  the 
inverse  A^A  is  stored 


NRTMP 


Identifies  starting  location  of  temporary 
storage  for  special  handling  of  the  R  matrix 


NSCALE 


Identifies  the  starting  location  of  the  list  of 
conversion  factors  which  convert  all  solution 
vectors  and  associated  matrices  from 
machine  units  to  output  units 


VSTR 


Floating  point  variable  storage 


K(?UT 


Output  tape  number 


2.  Input 
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C .  Output 

1  .  COMMON 

2.  Calling  sequence 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 
GLCOP 


B.  Program 

HUMAH 

Converts  vector  or  matrix  from  machine  units 
to  human  units  or  vice  versa 

MCOVMAT 

To  move  a  triangular  matrix  from  A(I)  to  B(J) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MATPT 

B.  Segment 

1.  ESP0DDC 
Z.  ESP0DEPH 

C.  Called  by  subroutine 

1.  APPLY  (ESP0DDC) 

Z.  UPDATE  (ESP0DEPH) 

FUNCTION 

The  function  is  to  print  a  lower  triangular  matrix  of  dimension  NZ 
with  the  first  element  at  A  (Nl). 

USAGE 

A.  Calling  sequence 

Call  MATPT  (A,  Nl,  NZ) 

B .  Input 

1 .  COMMON 

TEMP  Temporary  storage 

I($UT  Output  tape  number 

Z.  Calling  sequence 

A  Lower  triangular  matrix 

Nl  First  element  stored  at  A  (Nl) 

NZ  Dimension  of  a  matrix 

C.  Output 

1.  C0MM0N 


Z.  Calling  sequence 


D.  Error/ action  messages 
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SUBROUTINES  USED 

A.  Library 
GL0P 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MLTUT 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 

Function  is  to  convert  lower  triangular  matrix  to  an  upper  triangular  matrix. 
USAGE 

A.  Calling  sequence 

Call  MLTUT  (A,  IS,  B,  JS,  N) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

A  (IS)  Starting  location  of  A  matrix  (lower  triangular) 

N  Dimension  of  A  and  B  matrices 

C.  Output 

1 .  COMMON 

2.  Calling  sequence 

B  (JS)  Starting  location  of  upper  triangular  matrix 

D.  Error/  action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 


4-137 


MNELTC 


MNELTC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
MNELTC 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 

DPRLM 

L0D0BS 

FUNCTION 


The  function  is  to  convert  the  elements  taken  from  the  "SPADATS  7 
CARD  ELEMENT  SETS"  to  Cartesian  coordinates  (x,  y,  z,  x,  y,  z). 

USAGE 

A.  Calling  sequence 
Call  MNELTC 

B.  Input 

1.  C0MM0N 

CD  EG 
CJ 

CJD50 
CKMER 
CMU 
CPI 
C2PI 
DBASE 
DCFLG 
DNREV(l) 

DNREV(l)  =  1.  (T  is  input,  flag) 

DNREV(l)  =  2.  (AN  is  input,  flag) 

DNREV(l)  =  3.  (N  is  input,  flag) 

DNREV(2)  Input,  number 

DNREV(2)  =  T  input 
DNREV(2)  =  AN  input 
DNREV(2)  =  N  input 

DNREV(3)  Epoch  revolution  number 


deg/ rad 

J 2 »  J3.  J4.  •  <  •  •  Jl2 

Julian  date  0  r  January  1,  1950 

km/ e.  r.  _ 

GM  Earth  (e.  r.  /min  ) 

IT 

2tt 

Number  of  days  from  1950  to  day  of  epoch 
ESP0DDC  package  control  flags 
Type  of  input  flag 


4-139 


MNELTC 


MNELTC 


DNREV(4)  Prediction  flag 


DNREV(4)  =  1  # 
DNREV(4)  =  2. 
DNREV(4)  =  3. 
DNREV(4)  =  4. 


(osculating  elements) 
(SEAI  tape) 

(K  -  25  mean  elements) 
(Mean  elements) 


DSDAY  Epoch  day,  days  from  beginning  of  year. 

If  DNREV(4)  =  2.  ,  DSDAY  contains  the  epoch 
time  (days  and  fraction  of  days  from  1950) 

DSFDAY  Epoch  time,  fraction  of  days 

DYEAR  Epoch  year  (2  digits) 

K0UT  Output  tape  number 

TJDATE  Julian  date  of  midnight,  epoch  day 

TMNEL  Initial  seven-card  element  set 

If  DNREV(4)  =  1. 

TMNEL(l)  =  N 

(2)  =  a° 

(3)  =  e 

(4)  =  iQ 

(5)  =  ^ 

(6)  =  0do 

(7)  =  L0 

If  DNREV(4)  =  2. 

TMNEL)  1 )  =  N0 

(2)  =  axN 

(3)  =  ayN 

(4)  =  hi 

(5)  =  hy 

(6)  =  hz 

(7)  =  L0 

(8)  =  c0 

If  DNREV(4)  =  3.  or  4. 

TMNEL)  1)  =  Nq 

(2)  =  ao 

(3)  =  eQ 

(4)  -  iQ 

(5)  =  nQ 

(6)  -  too 

(7)  =  L0 

(8)  =  cG 

(9)  =  Pn 
(1°)  =  cn 
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2.  Calling  sequence 


C.  Output 


C0MM0N 

DNREV(5) 

New 

DNREV(6) 

Elen 

TMNEL(l) 

=  N0 

(2) 

“  ao 

(3) 

=  eo 

(4) 

=  io 

(5) 

=  Qq 

(6) 

-  uQ 

(V) 

=  L0 

(8) 

”  co 

(9) 

=  Pn 

(10) 

=  Cn 

TN0MP(1) 

=  a 

(2) 

=  6 

(3) 

=  P 

(4) 

=  A 

(5) 

=  R 

(6) 

=  V 

TN0MX(  1 ) 

=  X 

(2) 

=  y 

(3) 

=  z 

(4) 

=  X 

(5) 

=  y 

(6) 

=  z 

2.  Calling  sequence 


D.  Error/action  messages 

1.  Off-line  comment: 

"NO  CONVERGENCE  IN  MNELTC  SUBROUTINE" 

2.  Action: 

SUBROUTINE  EXIT 

SUBROUTINES  USED 

A.  Library 

C<Z>SF 

GL<Z>P 

PANT 

SINF 

SQRTF 
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B.  Program 


ASIN 

ATNQF 

CT0P 

EXIT 

PIM0D 

TINIT 

TMSEP 


Arc  sine 
Arc  tangent 

Cartesian  to  polar  coordinates 
Final  exit  from  program 

Takes  principal  value  of  angle  between  0  and  Z tt 
Sets  up  initial  time 

Modulates  initial  times  and  sets  up  permanent  storage 


EQUATIONS 


A.  Preliminary  (1)  (If  DNREV  (4)  =1.) 

1 .  Input 

7-c.ard  SPWDC  osculating  elements 

N0  Revolution  number 
eQ  Eccentricity 
iQ  Inclination,  deg 
T0  Epoch  time,  day  +  day  fraction 
L0  Mean  longitude,  deg 
Qq  R.A.  ascending  node,  deg 
co0  Argument  of  perigee,  deg 
aQ  Semimajor  axis,  Earth  radii 
TQy  Year  of  epoch 

Z,  Compute 


axN  "  eo  cos  'Jo 
avN  =  e o  sin  wo 

r/  =  ng 

io  ’ 

L  =  L0 

i  =  io 

00  —  OOq 

e  =  eQ 

a  =  aQ 

Go  To  Predict  Equation  No,  15 


B.  Preliminary  (Z)  (If  DNREV  (4)  =  Z.  ) 

1 .  Input 

DNREV)  1),  DNREV(Z),  DNREV(3) 
From  element  record  in  memory: 


axN  N  component  of  a 
ayN  component  of  a. 
hx  ^ 

hy  )  Components  of  angular  momentum  per  unit  mass 

hz  J 

E0  Mean  longitude,  rad 
T0  Epoch  time,  days  from  1950.0 
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c0  Rate  of  change  of  period,  days/  rev^ 
T0y  Year  of  T0,  1  BCD  character 

N0  Epoch  revolution  number 

2.  Compute 


=  365  [( 

)  T  -  50l 

oy  J 

Fnl-  ( 

)  T  -  48 

oy 

LnJ 

4 

=  T  -  T 

o  y 

(day  + 

2  2 
=  h  +  h 
x  y 

+  h  2 
z 

(  2  .  2 

\l/2 

If  £n"j  is  an  integer,  £n~j  =  £n”J  -  1 


^axN  +  ayN  J 


1  -  e 


q  =  a  (1  -  e  ) 
o  o  o 


i  =  cos 


i  h 

-  1  z 


n 


3/2 


1  ‘I  J2 


,  2  L  3.2. 

1  -  e  1-  —  sin  l 
o  V  2  o 


Q  =  tan 
o 


-  1 


X 


C"  = 


- 360  n  c 
o  o 

2 

TT 


p>  _  ^  21 

N  n 


1  -1  J2| 

f  o 

|  (4  -  5  sin“  i) 

ip  2J 

\  o  J 
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3.  Flag 

DNREV  (4)  =  2. 


(rad) 


Go  to  Predict  Equation  No.  3 

C.  Preliminary  (3)  (If  DNREV  (4)  =  3.  ) 

1 .  Input 

DNREV(l),  DNREV(2),  DNREV(3) 

7-card  element  set  (mean  K-Z5) 

N0  Revolution  number 

eQ  Eccentricity 

iQ  Inclination,  deg 

T0  Epoch  time,  day  +  day  fraction 

L0  Mean  longitude,  deg 

Qq  R,  A.  ascending  node,  deg 

co o  Argument  of  perigee,  deg  ^ 

CQ  Rate  of  change  period,  day/  rev 
aQ  (K  -  25)  semimajor  axis,  earth  radii 
Pn  Nodal  period,  days/ rev 
Cn  Rate  of  change,  nodal  period,  days/ rev 
T0y  Year  of  epoch 

2.  Compute 

Po  =  a0  (l  -  eQ2) 

%  =  a0(l  -  eQ) 

i0,  r20,  U)0,  L0 - ^  Radians 

3.  Flag 

(If  DNREV  (4)  =  3.  ) 

Go  to  Predict  Equation  No.  1 

D.  Preliminary (4)  (If  DNREV  (4)  =  4.  ) 

1.  Input 

DNREV(l),  DNREV(2),  DNREV(3) 

7-card  element  set  (mean) 

N0  Revolution  number 

eQ  Eccentricity 

iQ  Inclination,  deg 

T0  Epoch  time,  day  +  day  fraction 

L0  Mean  longitude,  deg 

f20  R.  A.  ascending  node,  deg 

coq  Argument  of  perigee,  deg 
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CQ  Rate  of  change  of  period,  days/ rev 

aQ  Semimajor  axis,  Earth  radii 

PN  Nodal  period,  days/  rev 

C]\j  Rate  of  change  nodal  period,  days/rev 

T0y  Year  of  epoch 


2.  Compute 

P  =  a  (l  -  e  2) 

O  o  V  °  J 


a  =  a 
o  o 


i  .iiL 

2  2 


(!  '  1 sinZ  Q  V1  '  eo 


q  =  a  ( 1  -  e  ) 
o  o  o 


i  ,  L  ,  ,  (o 

o  o  o  o 


Go  to  Predict  Equation  No.  1 
Flag 

DNREV  (4)  =  3. 


E.  Predict 


i)  nQ  = 


Vir 

3/2 


3  J2 
1  _  4  “  2 


(*  •  I  si 


2  . 
in  i 


1  -  e 


2)  CM  = 


■360  n  ^  C 
o  o 

2 

TT 


3)  A  =  8 

n^  =  0. 072220521 
d 


d  =  A(Cr,)z 


n 


1  + 


3(nd  -  no) 


4)  a  =  fl  +  2C"  AT  (1440)  +  3d  (AT)Z  (1440)Z] 


-2/3 


5)  e  =  1  - 


a  =»  q 


e  =  o 


a  q 
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6) 

h  = 

3  ^2 

"2  ~ 2  no  COS  io  (1440) 

Po 

7) 

00  = 

4  2  no  ^4  "  5  sin  ^  ^144°) 

Po 

8) 

n  = 

Q  +  h  AT 
o 

9) 

A  oo  = 

do  AT 

10) 

axN  = 

e  cos  oo  cos  A  oo  -  e  sin  oo  sin  Aoo 
o  o 

11) 

ayN  = 

e  cos  oo  sin  Aoo  +  e  sin  oo  cos  Aoo 
o  o 

12) 


Att 


.  J_  sin  i 
13  o 

2  J2  Po 


3  J2  5  .  2  .  |  .  ^ 

=  tt  T  Z  -  —  sin  i  -  cos  l  I 

2  2^2  o'  o') 


13) 

L  -  .1  3 
3  '  4  J2 

14) 

r 

II 

r 

o 

+ 

a  ■«. T  sin  i 
xN  o 


3+5  cos  i 


1  +  I  cos  i 


E 


(1  +  Att)  +  (C")(AT)(1440)  +  (d)(AT)  (1440) 


2] 


15) 

G 

1 

J 

II 

P 

i  <  90° 

u  =  l  +  n 

i  >90° 

16) 

(E  +  u>)'  =  V  +  axN 

sin  (E  +  oo) 

n 


-  a 


yN 


cos  (E  +  oo) 


n 


first  approximation 


(E  +  co)1  -  U 


171 


continue  until  |  (E  +  oo)1  -  (E  +  oo)^  |  5.  E  -  7 
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18)  e  sin  E  =  (E  +  co)  -  v 

n 


19)  e  cos  E  =  aVKT  cos  (E  +  co)  +  a  sin  (E  -f  go) 
.A  IN  Y  IN 


20) 

21) 

22)  rv 


a(l  -  e  cos  E) 

jzr 


r  - 


v|jia 


e  sin  E 


fe.  Y 


1  -  e 


23 )  cos  u  =  — 
r 


24)  sin  u  =  — 
r 


r 


cos  (E  +  go)  -  a  +  a  T 
xN  xN 


sin  (E  +  co)  -  a  _T  -  a 

yN  yN 


N  =  cos  12 

X 

25) 

N 

N  =  sin  12 

y 

N 

II 

O 

M  =  -  s  in  12 

X 

cos  i 

26) 

M 

■( 

M  =  cos  12  cos  i 

y 

M  =  sin  i 

z 

27) 

U 

= 

Ncos  u  +  M  sinu 

28) 

V 

= 

-N  sin  u  +  M 

cos  u 

29) 

r 

= 

r_U 

30) 

r 

= 

r  u  +  rvy 

Revolution  Number  (If  DNREV  (4)  -  2.  ) 

1) 

u 

= 

-1  sm  u 

tan  - 

1  cos  u 

0  <  u  < 

2) 

AN, 

1 

= 

Ql  -  L.^  -  12  AT  -  Aoo)  mod 

e  sin  E 


^1  +  *Y  1  -  e* 
e  sin  E 


1  +V  1  -  e2 


«-] 


+  (“  ■f  Ago)  mod  2 it 


rANj  is  the  number 
of  time  s  these 
arguments  are 
reduced  by  2tt 
(to  reach 
0<  0  <  2tt) 
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*;  go 

If  yes , 

AN, 

1 

=  AN 

If  no, 

AN. 

1 

=  AN 

4)  N  =  N  +  AN. 

o  1 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MOVE 

B.  Segment 
ESPOD 

C.  Called  by  subroutine 
ASSIGN 

FUNCTION 

This  subroutine  moves  storage  between  A(I)  and  A(J)  forward  or  back¬ 
ward  N  cells  depending  on  the  flag  M. 

USAGE 

A.  Calling  sequence 

Call  MOVE  (A,  I,  J,  N,  M) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 

A  Block  of  storage 

I  Identifies  the  old  starting  location  of  the  nAM  block 

J  Identifies  the  new  starting  location  of  the  "A"  block 

N  Number  of  cells  to  be  moved 

If  M  =  1,  block  should  be  moved  forward  N  cells; 
if  M  =  -1,  block  should  be  moved  backward  N  cells 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 


4-149 


M0VE 


MCJVE 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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M0VKVS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
M$VEVS 

B.  Segment 
ESP^DDC 

C.  Called  by  subroutines 
UBSGET 

FUNCTION 


This  subroutine  moves  observation  set  from  variable  to  working  stor¬ 
age,  sets  up  observational  sigmas,  and  sets  up  Gg  for  gross  outlier  rejection 
c  riterion. 


USAGE 


A.  Calling  sequence 
Call  MCjVEVS  (J) 

B .  Input 

1.  C(JMM(JN 

DBASE  Number  of  days  from  January  1,  1950  to 

day  of  epoch 

VSTR  (NUBS)  Array  containing  observation  sets  (see 
format  of  observations  on  the  following 
pages) 

2.  Calling  sequence 

J  Index  for  the  next  observation  set  to  be  picked  up  out 
of  array  VSTR  (NUBS) 

C .  Output 


1.  COMMON 


PUBS(l) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(8) 


Sensor  number  ^ 

Observation  time,  min  from  0  day  of  epoch 
Range ,  e .  r . 

Azimuth,  rad 

Elevation,  rad 

Range  rate,  e.  r.  /min 

Hour  angle,  rad,  if  applicable 

Declination,  rad,  if  applicable 
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M0VEVS 


PSIG(  1)  ctr,  e.  r. 

(2)  &  As  rad 

(3)  crjr,  rad 

(4)  ^RDT’  e-  r-  /min/  observation  weights 

(5)  trHA.  rad 

(M  ^DEC'  rad  j 

PKSUBS  Gs  (gross  outlier  rejection  criterion) 
2.  Calling  sequence 

D  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

B.  Program 


M0VEVS 
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M0VKVS 


M0VEVS 


Observation  set  as  recorded  on  LOG  7  and  as  maintained 
in  the  VSTR  (NUBS)  array 


Word  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


G  — binary  integer 
S  at  B23 

O 

N 

N 

N 

CF 

CL 

0T 

E 

T 

S 

S 

S 

48  bit  floating  point  number 

R 

0 

0 

0 

0 

0 

E 

A 

48 -bit  floating  point  number 


48 -bit  floating  point  number 


R 


48 -bit  floating  point  number 


48 -bit  floating  point  number 


R 


Gg ;  sensor  number  (BCD) 


(see  index  1) 

Time,  days  and  fractions 
of  days  from  Jan.  1,  1950 

(see  index  2) 

Elevation,  declination 

Azimuth,  hour  angle 

Slant  range 

Range  rate 
* 

Observation  weights 
assigned  at  observa- 


tion  processing  time. 


INDEX  1 


INDEX  2 


CF 

Maximum  frequency  shift 
indicator 

R 

Association  indicator 

CL 

.r.  _  A  =  unclassified 

Classification  ,  ,  r 

1  =  classified 

E 

A 

Equinox 

Accuracy 

0T 

Observation  time 

0  range  rate  only 

1  azimuth  and  elevation 

2  azimuth,  elevation,  range 

3  azimuth,  elevation,  range, 
range  rate 

5  right  ascension  and  declination 

ET 

Equipment  type 

A  Accuracy 


These  weights  are  stored  as  binary  integers,  two  per  word  (one  at  a  B23 
and  the  other  at  a  B47.  )  The  weights  are  these  integers  converted  to 
floating  point  numbers  and  then  divided  by  10^.  For  optical  data  the  first 
word  contains  weights  for  field  reduced  RA  and  DEC  and  the  second  word 
contains  weights  for  precision  reduced  RA  and  DEC. 
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MQ>VMAT 


MQ5VMAT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
M0VMAT 

B.  Segment 
ESPC^DDC 

C.  Called  by  subroutine 

APPLY 

MATPCH 

FUNCTION 

The  function  is  to  move  a  triangular  matrix  of  dimension  K  from  A(I) 

to  B(J). 

USAGE 

A.  Calling  sequence 

Call  MCjVMAT  (A,  I,  B,  J,  K) 

B .  Input 

1.  C0MM0N 

2.  Calling  sequence 

A  Triangular  matrix 

I  Starting  location  of  matrix  to  be  moved 

K  Dimension  of  A  matrix 

J  Starting  location  where  matrix  is  to  be  stored 

C.  Output 

1 .  COMMON 

2.  Calling  sequence 

B  Relocated  matrix 

D.  Error /action  mes sages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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MULT 


MULT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
MULT 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutine 
R0TRU 

FUNCTION 

Function  is  to  multiply  a  given  3x3  matrix  times  a  succession  of 
1x3  vectors  . 

USAGE 

A.  Calling  sequence 

Call  MULT  (S,  A,  B,  I,  NC0L) 

B .  Input 

1.  CQMMQN 


2.  Calling  sequence 


S 


Address  of  the  3x3  matrix  stored  by  rows 


A 


Address  of  a  succession  of  column  vectors 


I 


Location  of  the  x  component  of  the  first  vector 
cf  A  to  be  used 


NCC^L  The  number  of  successive  column  vectors  of 
A  to  be  used 


C.  Output 


1.  COMMON 


2.  Calling  sequence 


B  Address  of  the  array  containing  the  resultant  product, 
stored  by  rows 
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MULT 


MULT 


D.  Error/action  messages 

SUBROUTINES  USED 
A  Library 

B.  Program 

EQUATIONS 


None 
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NPRPCH 


NPRPCH 


SUBROUTINE  IDENTIFICATION 

A.  Title 
NPRPCH 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
FIT 

FUNCTION 

Function  is  to  punch  the  values  of  the  solution  parameters  to  be  us 

T 

on  the  next  iteration,  the  associated  bounds,  the  A  A  matrix  and  the  A 


inverse  matrix  if  required, 

in  human  units. 

USAGE 


A.  Calling  sequence 

Call  NPRPCH 

B .  Input 


1.  CCSMMCjN 

CDAD2M 

CdA/2M 

CDVAR 

e  =  drag  variation 

DHEAD 

Header  from  JDC  card 

DVEHN 

Vehicle  number  and  name  (BCD) 

IVSTR 

Fixed  point  variable  storage 

NBDNS 

Identifies  the  starting  location  for  the  bounds 

NDPR 

Number  of  all  differential  +  initial  parameters 
to  solve  for  (Category  1) 

NICPR 

Number  of  initial  condition  parameters  to 
solve  for 

NIDP 

Identifier  for  table  indicating  Category  1  type 
variables  to  be  solved  for 

NITCT 

Iteration  counter 

NPAR 

Identifies  the  starting  location  for  the 
parameter  list 
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CD  H 


NPRPCH 


NPRPCH 


2. 


NPR 

Number  of  all  parameters  to  be  solved  for 

NRTMP 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 

NSCALE 

Starting  location  of  the  list  of  conversion 
factors 

tnOmp 

Initial  polar  coordinates 

YSTR 

Floating  point  variable  storage 

KOUT 

Output  tape  number 

Calling  sequence 

C. 


Output 

1.  COMMON 

2.  Calling  sequence 


D.  Error  /  action  me  ssages 


SUBROUTINES  USED 


A.  Library 

GLOP 

B.  Program 

1.  HUMAH  Converts  vector  or  matrix  from  machine 

units  to  human  units  or  vice  versa 

T  T  - 1 

2.  MATPCH  To  punch  A  A  and  (A  A)  at  the  end  of  each 

iteration 
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Q)BSIN 


QJBSIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
Q)BSIN 

B.  Segment 
ESPQ)D 

C.  Called  by  subroutine 
LQ>DQ)BS 

FUNCTION 

Function  is  to  move  data  from  temporary  storage  (TEMP)  to  per¬ 
manent  storage  ( Z) .  This  subroutine  also  converts  temporary  storage  to 
internal  units . 

USAGE 

A.  Calling  sequence 

Call  $BSIN  (Z,  ISTART) 

B .  Input 

1.  COMMON 


CDEG 

CJD50 

CKMER 


TEMP(30) 


(31) 

(32) 

(33) 

(34) 

(35) 

(36) 

(37) 

(38) 

(39) 

(40) 

(41) 

(42) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 


Degrees / radian 

Julian  date  January  0,  1950 

km  /  e  .  r . 

Satellite  number 

Equipment  type 

Station  number 

Y  ear 

Month 

Day 

Hour 

Minutes 

Seconds 

E  or  6  (degrees) 

A  or  a  (degrees) 

R,  slant  range  (km) 

R  (km /  sec) 

Code  for  field  10 


brightnes  s 


Time  interval 

Date  or  line  number 

Message  number 

Equinox 

Year 

Observation  number 
Card  type 
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omsiN 


2.  Calling  sequence 

ISTART  Starting  location  of  Z 


Output 

1.  COMMON 

2.  Calling  sequence 

Z(ISTART) 

Station  number 

Z(ISTART  +  1) 

Satellite  number 

Z(ISTART+2) 

Time  (days  since  1950) 

Z(IST  ART +3) 

Card  type 

Z(ISTART+4) 

E  or  6  (radians) 

Z(ISTART+5) 

A  or  a  (radians) 

Z(ISTART+6) 

R,  slant  range  (e.r.) 

Z(ISTART+7) 

R,  range  rate  (e.r.  /min) 

Z(ISTART+8) 

Brightness 

Z(ISTART+9) 

Observation  type 

Error/  action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

TIME  Compute  Julian  date 
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Q5BSIN 


OBSL0D 


OBSL$D 


SUBROUTINE  IDENTIFICATION 

A.  Title 
0BSL0B 

B.  Segment 
ESPC^D 

C.  Called  by  subroutine 
B0B0BS 

FUNCTION 

This  subroutine  loads  observations  from  the  SRADU  tape  into  core,  for 
the  satellite  number  found  in  DVEHN.  When  core  is  filled  the  subroutine 
exits.  Multiple  entrances  into  this  subroutine  are  permitted  to  load  all 
the  data  from  tape. 


USAGE 


A.  Calling  sequence 
Call  0BSB0B  (SE0F) 

B.  Input 


1.  COMMON 

C0MLST 

DVEHN 

NMBER 

VSTR 


Dimension  of  COMMON 
Vehicle  number  and  name  (BCD) 
Number  of  observations 
Floating  point  variable  storage 


Z.  Calling  sequence 

SE($F  Sentinel  block  detection  flag 
C.  Output 

1.  C0MM0N 


TEMP(IOO) 

Z.  Calling  sequence 


Starting  location  of  the  observations  from 
tape 
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OBSLQ>D 


OBSLC^D 


D.  Error  /  action  messages 

1.  Off-Line  Comment: 

"ERROR.  NO  OBS  ON  SRADU  FOR  SATELLITE  NO. _ 

2.  On-Line  Comment: 

"ERROR.  NO  OBS  ON  SRADU  FOR  SATELLITE  NO. 
"TYPE  GO  TO  REREAD  TAPE,  STOP  FOR  NEXT  CASE" 

3.  Action: 

Subroutine  error 

SUBROUTINES  USED 

A.  Library 

GL0P 

READT 

STARTRD 

ST0PGO 

TAPCK 

ZCHEK 

B.  Program 

ERR0R  Error  routine 

FLEX  Flexowriter  print  routine 

IDSUB  Strip  blanks  from  I.  D. 
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OBSSRT 


OBSSRT 


SUBROUTINE  IDENTIFICATION 
A.  Title 


OBSSRT 

B.  Segment 
ESPOD 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 


Function  is  to  sort  the  observations  timewise  with  respect  to  the 
number  of  days  from  1950.  0  to  the  day  of  epoch. 


USAGE 


A. 


B. 


C. 


Calling  sequence 

Call  OBSSRT  (A,  ISTART,  IF INAL) 


Input 


COMMON 

DBASE 

DHOUR 

DMIN 

DSEC 

TEMP 


Number  of  days  from  1950.  0  to  day  of  epoch 

Epoch  hour 

Epoch  minute 

Epoch  second 

Temporary  storage 


Calling  sequence 


A 

ISTART 

IFINAL 

Output 

1.  COMMON 


Storage  array 

Identifier  for  starting  location  of  array  in  A  storage 
Identifier  for  ending  location  of  array  in  A  storage 


2.  Calling  sequence 


D,  Error/action  messages 


4-165 


0BSSRT 


(JBSSRT 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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OUTER 


OUTER 


SUBROUTINE  IDENTIFICATION 

A.  Title 
OUTER 

B.  Segment 
ESPODDC 

espodeph 

C.  Called  by  subroutine 

BODY 

DRAG 

VAREQ 

FUNCTION 

Function  is  to  compute  the  "outer  product,"  i.  e.  ,  the  3x3  matrix 
product,  which  results  when  a  3  x  1  column  vector  is  multiplied  times  a 
1x3  row  vector. 

USAGE 

A.  Calling  sequence 

Call  OUTER  (A,  I,  B,  J,  C) 

B.  Input 

1 .  COMMON 

2.  Calling  sequence 

A  Address  of  the  3x1  column  vector  array 

I  Location  of  first  element  in  A 

B  Address  of  1  x  3  row  vector  array 

J  Location  of  first  element  in  B 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

C  Address  of  3  x  3  array  to  which  the  outer  product 
is  added 

D.  Error/action  messages 
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0UTER 


CjUTER 


SUBROUTINES  USED 

A.  Library 

B.  Program 

EQUATIONS 

None 
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0UTPT 


OUTPT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
0UTPT 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
TC0MP 

FUNCTION 

Function  is  to  punch  on  DS-2  the  sets  of  x^,  y^,  z^,  t^,  t^  generated 
by  TC(JMP,  These  punched  cards  may  be  used  as  inputs  to  the  GIPAR 
program. 


USAGE 


A.  Calling  sequence 
Call  0UTPT 


B.  Input 


1. 


C0MM0N 

TRAJX  (1)  xT  (e.  r.  ) 
■p  (e.r.) 


zT  (e.  r.  ) 


(2) 

(3) 

(4) 

(5) 

Sequence  number 


(days) 


D 

tpD  (fraction  of  days) 


2. 


SEQ 

Calling  sequence 


C .  Output 

1.  C0MM0N 


2.  Calling  sequence 


D.  Error/action  messages 
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PAR0UT 


PAR0UT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PAR0UT 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
RADR 

FUNCTION 


Function  is  to  compute  the  following  items  for  the  residuals  print. 

1.  Residuals  in  U,  V,  W  system  or  on  option  residuals  in  the 
S,  T,  W  system.  A  second  option  is  provided  to  show  how 
much  the  sensor  location,  in  terms  of  cf>,  X,  and  h,  would 
have  to  be  moved  in  order  to  make  residual  errors  equal 
to  zero 

Z.  The  vector  magnitude  of  the  residuals  in  the  U,  V,  W  system 

3.  The  in-plane  time  differential  between  the  measured  and 
computed  positions 

4.  The  argument  of  latitude  of  the  computed  position 

5.  The  out-of-plane  angle  beta. 

USAGE 


A.  Calling  sequence 

Call  PAR0UT 

B.  Input 

1.  C0MM0N 

DCF  LG(5) 

=  0  Print  U,  V,  W  residuals 
=  1  Print  S,  T,  W  residuals 
=  Z  Print  cf>,  X,  h  residuals 

PCMR 

R,  computed  slant  range 

PRESD 

Array  containing  observation  residuals 
(AR,  AA  or  AHA,  AE  or  ADEC  A&) 

PS  TAT 

Working  storage  of  sensor  information 
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PAR0UT 


PAR0UT 


PUBS 

Array  containing  sensor  number,  time,  R, 
A,  E,  R,  HA,  DEC.  All  observations  are 
measured. 

PWI 

Vector  (wj,  w^,  w^) 

CMU 

GM  of  the  Earth  (e.  r.  ^/min^) 

SNALF 

sin  a 

where  a  =  a  +  X  +  w  t 

go  s  e 

CSALF 

cos  a 

TRAJX 

Array  containing  x,  y,  z,  x,  y,  z  at  time  t 
(observation  time) 

2. 

Calling  sequence 

Output 

1. 

COMMON 

PREDT(l) 

AR  =  slant  range  residual  (km) 

(2) 

AA  or  AHA  =  azimuth  or  hour  angle 
residual  (deg) 

(3) 

AE  or  ADEC  =  elevation  or  declination 
residual  (deg) 

(4) 

AR  =  range  rate  residual  (km/sec) 

(5) 

Au,  As,  or  A4>  (km,  km,  deg) 

(6) 

Av,  At,  or  AX  (km,  km,  deg) 

(7) 

Aw,  Aw,  or  Ah  (km,  km,  meters) 

(8) 

v  mag  =  V  Au^+  A  +  Aw^  (km) 

(9) 

At  =  in-plane  time  differential  (min) 

(10) 

U  =  argument  of  latitude  (deg) 

(ID 

P  =  out-of -plane  angle  (deg) 

2. 

Calling  sequence 
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PAR0UT 


PAR0UT 


D. 

Error/ action 

messages 

SUBROUTINES  USED 

A. 

Library 

C0SF 

SINF 

SQRTF 

B. 

Program 

ASIN 

Arc  sin 

ATNQF 

Arc  tangent 

DOT 

Dot  product 

PIM0D 

Puts  angle  between  0  and  Ztt 

MAGN 

Computes  y|  and  y  of  a  vector  y  (y^,  y^, 

XCR0SS 

Cross  product  routine 

YHADEC 

Computes  the  y  vector  given  hour  angle  and 
declination  measurements 

YRAE 

Computes  the  y  vector  given  range,  azimuth, 
elevation  measurements 

EQUATIONS 


w  =  (w .  ,  w^,  w^) 


where 


w 


j  =  x  cosq  +  y  sina 
w?  =  -x  sina  +  y  cosa 


w3  =  z 


4-173 


PAR0UT 


PAR0UT 


Compute  u,  v,  w  (up,  down,  cross) 


UP  = 


w  w 


|w|  r 


where 


r  = 


2  .  2  ,  2 

+  w2  +  w3 


DOWN  =  where  u  =  w  -  r|  w  and  r| 


CROSS  =  UP  x  DOWN 
If  DCFLG(5)  =  1,  compute  s,  t,  w 


where 


u 

s  -  — rr 

lul 


where  u  =  w 


w  and 


w.  w 


with  V 


■ 


2  .2  .2 
+  w2  +  w3 


w  w 


Compute  vector  y  from  either  subroutine  YRAE  or  subroutine  YHADEC 
then,  if: 


DCF LG(5)  =0,  compute  AUP,  ADOWN,  ACROSS 
A  UP  =  (y  -  w)  .  UP 
ADOWN  =  (y  -  w)  •  DOWN 
ACROSS  =  (y  -  w)  •  CROSS 
or  if  DCFLG(5)  =  1,  compute  AS,  AT,  AW 
AS  =  (y  -  "w )  •  *s 
AT  =  (y  -  "w )  *  T 
AW  -  (~y  -  w)  • 
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PAR0UT 


PAR0UT 


or  if  DCFLG(5)  =  2,  compute  AStation  Latitude,  AStation  Logitude, 
AStation  Altitude 


w  *  =  +  w  -  y 

s  s  y 


R*  =  |w,*| 


R  =  w 

S  *  S 


cj>  =  tan 


-1 


w 


s  3 


s  1 


<j>  =  0 


-1 

* 

W* 

s  3 

_  „  -1 

W  7 

s  3 

sin 

R* 

0  =  tan 

w  1 
si 

and 


A  Station  Latitude  =  0*  -  0 
A  Station  Longitude  =  <J>*  -  cj) 
A  Station  Altitude  =  R*  -  R 


Compute  vector  magnitude,  (3,  and  Au 


VM  =  y  -  w 


(3  =  sin  1 


cross  •  y 

TT 


Au  =  tan 


-1 


AD0WN 
y  .  UP 


Compute  argument  of  latitude 


u  =  tan 


-1 


UP3 

D(DWN 
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PAR0UT 


PAR0UT 


Begin  computations  for  A-t 

2 


X  = 


rv 


a  = 


2  -  \  ’ 


n  = 


-  V7 


371 


e  = 


(1  -  \)Z  +  2(2  - 


rv 


1/2 


a(  1  -  e  )  -  r 

cos  v  1  =  - 

1  re 


sm  v 


2 

COS  V , 


+  if  w  •  w  >  0 


v2  =  Vj  +  Au 


for  a  >  0 


for  a  £  0 


r  cos  v.  +  ae 

cos  E.  = - ^ - 

J  a 


r  cos  v.  +  ae 

cosh  F.  =  - ^ - 

J  a 


r  sm  v. 
sin  E.  = - J- 


J  Vi  2 

a  V  1  -  e 


sinh  F .  = 
J 


r  sin  v . 
_ L_ 

-  aVe2  -  1 


E .  =  tan 
J 


-1 


sin  E . 

F  =  tanh’  1 

sinh  F. 

_ 1 

1 

cos  E . 

j 

cosh  F. 

J  _ 

J  . 

M.  =  E.  -  e  sin  E. 
J  J  J 


M .  =  e  sinh  F.  -  F. 
J  J  J 


finally 


M  -  M. 
At  =  — - - i 
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PARSET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PARSET 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
INTEG 

FUNCTION 

This  subroutine  sets  up  the  PSTAT  array  with  sensor  information  from 
the  master  sensor  table  for  a  given  sensor  number.  It  checks  to  see  if 
either  latitude,  longitude,  altitude,  or  time  biases  are  being  solved  for  by 
this  sensor  and  if  so,  updates  the  PSTAT  table  before  returning  to  the 
main  sequence. 

USAGE 

A.  Calling  sequence 
Call  PARSET 

B.  Input 

1  .  C0MM0N 


CQiUNT 


Lines  counter 


IVSTR 


Fixed  point  variable  storage 


NPBIS 


Identifies  table  for  definition  of  Category  2 
variables 


NPRCD  Identifies  table  for  definition  of  Category  2 

variables  to  be  solved  for 


NSTAT 


Identifies  the  starting  location  of  the  master 
sensor  table 


PLSTSN  Name  of  the  last  sensor  processed  by  RADR 


PSIG 


Sigma  list  for  current  station  and  associated 
time  and  observations 
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PARSET 


PARSET 


PUBS 

Current  observations  and  time  table 

TEMP 

Temporary  storage 

TG 

Time  to  integrate  to 

TMBIS 

Current  estimate  of  time  bias  for  the 
observation  time  being  considered 

VSTR 

Floating  point  variable  storage 

CAE 

a 

e 

CBE 

b 

e 

CDEG 

Degrees  / radian 

CKMER 

km  lev 

CWE 

Earth's  rotational  rate 

KOUT 

Output  tape  number 

Z.  Calling 

sequence 

C .  Output 


1 .  COMMON 

PSTAT  (1) 

<t> 

Ts 

sensor  latitude  (rad) 

(2) 

X 

s 

sensor  longitude  (rad) 

(3) 

h 

sensor  altitude  (e  r.) 

(4) 

cos  <j> 

s 

(5) 

sin  6 

Ys 

(6) 

a  +  X 

go  s 

(7) 

coordinates  this  sensor  in  the 

(8) 

“// 

W  system  (e  .  r  .  ) 

(9) 

Code  wor 

d  (see  definition  of  IVSTR(NFRCD)  arra 

TG 

Observation  time  (adjusted  by  approximate  time 
bias  if  applicable). 

Z.  Calling  sequence 
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PARSET 


PARSET 


D  Error/action  me ssages 

"SENSOR  xxx  NQT  IN  MASTER  SENSOR  LIST" 

After  this  message  is  printed  control  is  returned  to  the  main 
sequence  and  the  next  observation  time  is  selected. 

SUBROUTINES  USED 

A.  Library 

CQSF 
GLQJP 
SINF 
SQRTF 

B.  Program 

LINES 
PIMQJD 

EQUATIONS 


Ejects  a  page  and  prints  a  header 

Takes  principal  value  of  angle  between  0  and  Ztt 


Where  applicable 


d>  =  d>  +  Ad) 
s  so  s 


\  —  \  +  AX 

s  so  s 


h  =  h  +  Ah 


cos  d>  =  cos  (6 

so 

+ a*»> 

sin  4>  =  sin  (<j>so 

+  A4,s) 

a  +  X  =  a  +  X 

4*  A\ 

go  s 

go  o 

s 

v  *  i 

a  A  +  (h  +  Ah  ) 
e  s  o  s  - 

cos  (4>so  +  A<t>s) 

s 

w3  = 

[~b  B  +  (h  4-  Ah  )| 
L  e  s  o  s'J 

sin  ^so  +  A<M 
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PARSET 


PARSET 


where 


Ag  =  cos2  (4>go  +  A$s)  +^J  ^n2  («|»go  +  A^) 

Bg  =  fin2  (+so  +  A<*,s)  +  (s1)  cos2  ^so  +  A<f5s) 


-1/2 


1/2 


a  =  1.0 
e 


b  =  a  ( 1 .  -  € ) 
e  e 

The  <b  ,  X  ,  and  h  are  the  latitude,  longitude,  and  altitude  of  the 
'  S O  30  O  6 

sensor  taken  from  the  master  sensor  list.  The  Ad>  ,  AX  ,  and  Ah  are 

s  s  s 

the  current  estimates  of  the  biases  in  the  sensor  latitude,  longitude,  and 
altitude  as  computed  by  the  differential  correction.  If  these  biases  are 
not  being  solved  for,  the  above  equations  are  ignored  and  the  corresponding 
entries  in  PSTAT  are  taken  directly  from  the  master  sensor  list. 
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PIM(DD 


PIM0D 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PIM£)D 

B.  Segment 
ESP(DD 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutines 

FUNCTION 

Function  is  to  get  the  positive  argument  of  an  angle  in  radians  between 
0  and  2tr. 

USAGE 

A.  Calling  sequence 
PIM0D(A) 

B.  Input 

1.  C0MM0N 
C2PI  2  it 

2.  Calling  sequence 

A  Angle  in  radians 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

A  Positive  angle  between  0  and  2 it  in  radians 
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PHEAD 


PHEAD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PHEAD 

B.  Segment 
ESP(2>DDC 

C.  Called  by  subroutines 
RADR 

FUNCTION 

Function  is  to  print  the  header  for  the  residuals. 
USAGE 

A.  Calling  sequence 
Call  PHEAD 

B.  Input 

1.  C0MM0N 

DCFLG  ESP0DDC  control  flags 
KOUT  Output  tape  number 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
GL0P 

B.  Program 
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PLTEL 


PLTEL 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PLTEL 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
TPRNT 

FUNCTION 


Function  is  to  convert  polar  coordinates  to  both  classical  and  indeter¬ 
minacy  free  elements. 

USAGE 

A.  Calling  sequence 

Call  PLTEL  (A,  B,  I) 


Input 


1.  CQSMM0N 

CMU 
CPI 
C2PI 
TEMP 
TG 

2. 


GM  Earth  (e.r.  /min  ) 

IT 

Ztt 

Temporary  storage 
Time  to  integrate  to 


Call 

ing 

(1) 

a 

(2) 

6 

(3) 

(3 

(4) 

A 

(5) 

R 

(6) 

V 

Output 

1.  COMMON 


2.  Calling  sequence 
B  ( 1 )  ^ 

B<2>  K 

(3)  J 
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PLTEL 


PLTEL 


(4) 

(5) 

(6) 

(7) 

(8) 

(9) 

(10) 

(ID 

(12) 

(13) 

(14) 

(15) 

(16) 
(17) 
I 


D 


P  v 
— o 


a 

e 

i 


n 

00 

U 

o 

M 


Given  only  if  — 


0 


1=0,  parabolic  orbit 
I  =  -  1,  hyperbolic  orbit 
I  =  +1 ,  ellipse 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

C0SF 

SINF 

SQRTF 

B.  Program 

ATNQF  Arc  tangent  routine 

PIM0D  Takes  principle  value  of  angle  between  0  and  2tt 
EQUATIONS 


—  « 

_ 

cos  6  cos  a 

u 

X 

o 

cos  6  sin  a 

= 

u 

sin  6 

C 

N 

O 

—  — 

•m  — 
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PLTEL 


PLTKL 


j-j  _  r  v  cos  (3 

°"  -Vf 


3. 


r  =  r 
o 


1  =  2 
a  ”  r 


4.  -  =  —  - 


v 


/p 


V  = 

o 


— - —  r  [v  sin  3  (-sin  A  sin  ci  -  cos  A  cos  a) 

vH  °  L 

+  v  cos  p  cos  6  cos  nj 

-  D  cos  6  cos  a 

o 

— j —  r  |"v  sin  p  (sin  A  cos  a  -  cos  A  sin  a) 

vV  °  L 

+  v  cos  p  cos  6  sin  aj 

-  D  cos  6  sin  a 

o 


° 


v  sin  a  (sin  Z  +  cos  A  cos  6) 


D  sin  6 
o 


Test:  —  0,  nparabolic  orbit1’ 

’’hyperbolic  orbit” 

+  ,  ’’ellipse1’  and  go  to  7. 


7.  a 


■cn 


X-l 


8.  e  = 


D 


_  1/2 


+  1  - 


9.  1  =  cos  (  u  v  -  u  V 

x  y  y  x 

o  3  o  7  o  o 


10.  f2  =  tan 


-  i 


u 

V 

z 

o 

u 

z 

o 

0 

>* 

> 

u 

V 

u 

V 

X 

z 

z 

X 

o 

o 

o 

o 
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PLTEL 


PLTEL 


11.  E  =  tan 
o 


D  \Za" 
o 

a  -  r 


M  =  E  -  e  sin  E 
o  o  o 


3/2 

12.  T  =  - -  M  -  t 

o  o 


13.  u  =  cos  1  (cos  6  cos  a  cos  ft  +  cos  6  sin  a 
o 


Test:  If  6  is  negative,  uq  =  2  tt  - 


If  6  is  positive,  u  =  O'K' 
r  o 


1  (cos  E  -  e)j 


14.  vq  =  cos  I  —  (cos  E  -  e) 


a.  For  0  <  M  <  180 
*“  o 


V  =  V 

o  o 


b.  For  180°  «=  M  «=  360° 


sin  ) 
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P0LY 


P0L.Y 


SUBROUTINE  IDENTIFICATION 

A.  Title 
P0LY 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutines 

DYNAT  (ESP0DDC,  ESP0DEPH) 

FUNCTION 


Function  is  to  evaluate  a  polynomial,  given  the  coefficients,  the  number 
of  coefficients  and  the  independent  variable. 

USAGE 

A.  Calling  sequence 

Call  P0LY  (C0EFS,  NC0EFS,  ANS,  ARG) 

B.  Input 

1.  C0MM0N 

2.  Calling  sequence 

C0EFS  Table  of  coefficients  (maximum  of  15) 

NC0EFS  Number  of  coefficients 

ARG  Argument  (independent  variable) 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

ANS  Answer  (dependent  variable) 

D.  Error/ action  mes  sages 
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PQ5LY 


P(2LY 


SUBROUTINES  USED 

A.  Library 

B.  Program 

METHOD 


where 

ARG  =  x 

C0EFS  =  aQ,  aJf  •  •  *,  aNC0EFS 
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P(DPPC 


P(DPPC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
P(DPPC 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 


The  function  is  to  compute  the  matrix  which  takes  a  Cartesian  covari - 
ance  matrix  into  an  ECI  orbit  plane  matrix  up,  down,  cross.  The  dimen¬ 
sion  of  the  resulting  matrix  will  either  be  6 ,  7,  or  8  depending  on  the  pre¬ 
sence  or  absence  of  either  or  both  of  the  drag  parameters. 

USAGE 

A.  Calling  sequence 
Call  P(Z)PPC 

B.  Input 

1.  C(DMM0N 

NDPR 

TEMP 
TRAJX(l) 

TRA  JX(2) 

TRA  JX(3 ) 

TRA  JX(4) 

TRAJX(5) 

TRAJX(6) 

2.  Calling  sequence 

C.  Output 
1.  C(DMM£)N 

TDPDX  Contains  matrices  of  partials  for  covariance 

matrix  update  (either  36,  49  or  62  cells) 

D.  Error/action  messages 


Total  number  of  Category  1  variables 
to  solve  for 
Temporary  storage 
x  (e.  r.  ) 
y  (e.  r.  ) 
z  (e.  r.  ) 
x  (e.  r .  /min) 
y  (e.  r.  /min) 
z  (e.  r.  /min) 
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PQPPC 


pqppc 


SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Program 
EQUATIONS 


r  =  V 


2  2  2 
x  +  y  +  z 


= 


^,2  '2  *  2 
v  =  ^yx  +  y  +  z 


r  •  v  =  xx  +  yy  +  zz 


-J  2  2  ,  >2 

=  Vr  v  -  (r  .  v) 

0 


r  x  J  |  =  Vr2  (r2v2  (r  .  v)2 


4  =- 

x  r 


-  =  1 
=y  r 


4  =  - 

5z  R 


,  V  2  . 

(r  .  v)x  -  r  x 


r  x 


Tf 


_  (r  •  v)y.  :.r_ly 
y  |  r  x  J  | 


,  .  2  • 
(r  .  v)z  -  r  z 

|  r  x  J  | 


yz  -  zy 

=  I  J  I 


V 


zx  -  xz 


xy  -  yx 


M  ■ 


*x  K 


\ 


4  4 

x  y 


For  NDPR  =  6 


TDPDX  =  U 


A 

0 


0 

A 
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P0PPC 


P0PPC 


For  NDPR  =  7  or  8 


A 

0 

'  0 

1 

TDPDX  =  U  = 

0 

A 

!  o 

0 

0 

“  r* - 

i 

;  i 

1  or  2 


>i 


or  2 
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P(DSTPR 


P0STPR 


SUBROUTINE  IDENTIFICATION 

A.  Title 
P(DSTPR 

B.  Segment 

esp^Ddeph 

C.  Called  by  subroutine 
MAIN  CONTROL 

FUNCTION 


This  subroutine  is  the  driver  for  the  post-processor. 

USAGE 

A.  Calling  sequence 
Call  P(DSTPR 

B.  Input 

1.  C(DMM(DN 

X(£>UT  Output  tape  number 

MT  Observation  tape  number 

PSTFLG  ESP£>DEPH  control  flags 

TG  Time  to  integrate  to  (from  O^1  day  of  epoch) 

2.  Calling  sequence 

C.  Output 

1.  C(DMM(DN 

2.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 
A.  Library 
PANT 
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P0STPR 


P0STPR 


B.  Program 

OUTPT 

RDXYZ 

SELECT 

SETIC 

TC0MP 

TPRLM 

TPRNT 

TRAJ 

TTAPE 

TWRAP 

UPDATE 


Sets  up  Xrp ,  yT>  tT  for  punching 

Reads  x^,  y,^,  Zj,,  t^  from  TTY  generated  cards 

Select  next  time  to  update  to 

Initialize  integration  list 

Compare  |  (x)  -  x,  (y)  -  y,  (z)  -  z  |  with  € 

Sets  up  data  for  integration 
Prints  trajectory  print 
Driver  for  integration  program 
Generates  ephemeris  tape 
Wraps  up  ephemeris  tape 

Driver  for  covariance  matrix  update  logic 
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P0TENT 


PATENT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
P0TENT 

B.  Segment 
ESPQiDDC 
ESP0DEPH 

C.  Called  by  subroutines 
DAUX 

FUNCTION 


Function  is  to  compute  the  necessary  inputs  for  and  to  call  the  GPERT 
subroutine . 

USAGE 

A.  Calling  sequence 
Call  PATENT 

B.  Input 

1 .  C0MM0N 

TLIST 

TR 


Numerical  integration  working  storage 

Magnitude  of  vector  from  center  of  earth  to 
vehicl  e 


TALFAG  Right  ascension  of  Greenwich  meridian  at  mid¬ 
night  day  of  epoch 

CWE  Earth's  rotation  rate  ( radians /minute) 

2.  Calling  sequence 


C.  Output 

1.  C0MM0N 


2. 


SIPH 

COPH 

SNALF 

CSALF 

SI  LA 

C0LA 


sin  of  the  geocentric  latitude  of  the  vehicle 
cos  of  the  geocentric  latitude  of  the  vehicle 
sin  of  the  right  ascension  of  the  vehicle 
cos  of  the  right  ascension  of  the  vehicle 
sin  of  the  longitude  of  the  vehicle 
cos  of  the  longitude  of  the  vehicle 


Calling  sequence 
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PATENT 


PATENT 


SUBROUTINES  USED 


A.  Library 
C0S 
SIN 
SORT 

B.  Program 
GERT 
PIMQD 

EQUATIONS 


•\f~~2 - 1 

.  V  x  +  y 

COS  <p  =  - £ - 1— 


sin  <p  =  ^ 


cos  a 


-\TT~z 

yx  +  y 


sin  a 


X 


V  2  .  2 

Yx  +  y 


\  =  a  -  (a  +  a)  t) 
go  e 

cos  \  =  cos  a  cos  (a  +  a>  t)  +  sin  a  sin  (a  +  a)  t) 

go  e  'go  e 


sin  \  =  sin  a  cos  (a  +  u  t)  -  cos  a  sin  (a  +  a)  t) 

go  e  go  e 
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PPLPC 


PPLPC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PPLPC 

B.  Segment 
ESP^DEPH 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 

Function  is  to  compute  the  partial  of  polar  coordinates  with  respect 

to  Cartesian  coordinates  and  to  set  up  a  matrix  U  necessary  to  do  the  up- 

T 

date  V  =  U2  U  .  The  dimension  of  the  matrix  U  will  either  be  6,  7,  or  8 
x 

depending  on  the  presence  or  absence  of  either  or  both  of  the  drag 
pa  rameter  s . 


USAGE 


A.  Calling  sequence 
Call  PPLPC 

B.  Input 

1.  C0MM0N 

NDPR  total  number  of  Category  1  variables  to  solve  for 

TRAJ  (1)  x  (e.  r.  ) 

(Z)  y  (e.  r.  ) 

(3)  z  (e.  r.  ) 

(4)  x  ( e .  r .  /  min) 

(5)  y  (e  .  r .  /  min) 

(6)  z  ( e  .  r  .  / min) 

Z.  Calling  sequence 


C.  Output 

1  .  C0MM0N 

TDPDX  Contains  matrices  of  partials  for  covariance 
matrix  update  (either  36,  49,  or  64  cells) 

D.  Error/  action  messages 
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PPLPC 


PPLPC 


SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Program 

ATNQF  Arc  tangent 
EQUATIONS 


2  2  2  2 
r  =  x  +  y  +  z 


->  ^2  -"2  *2 
=  V  x  +  y  +  z 


rr  =  xx  +  yy  +  zz 


r  = 


r  r 


q  = 


A  = 


W  = 


1 


cos  A 
rz  -  zr 


9a  _  -y  da  _  x  9a  _  9a  9a  9a 

9x  x2  +  y2  9y  x2  +  y2  9x  9*  9y  9z 


95 

9x 


-xz 


95 

9y 


-\/  2  2 

-yz  95  _  v  x  +  y  95  _  95  95 

2  y~2  J  9z  ^  ax  9y  9z 

r  v  x  +  y 


9£ 

9x 


=  q 


0 


M  = 

9x 
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PPLPC 


PPLPC 


- 

9A  _ 

W 

tan  A  f  ’  '  .  zxr  \ 

9x 

y  *  i  ■  i  i  ■  1  ^  —  yV  ^  | 

7  r  V  r  y_ 

9A 

dy 


W 


x 


tan  A 
r 


( 


zy  -  yz 


+ 


9A 

9z 


r  W  tan  A 


9A 

9x 


9A 

9y 


w  (- 

W  f  x 


y  +  ^tan  A 
+  2L  tan  a) 


9A 

9z 


-  r 


W  tan  A 


9r 

x  9r 

-  y 

9r 

z  0r 

9r 

9r 

3x 

r  9y 

r 

9z 

r  9x 

9y 

9z 

0  V 

9v 

9  v 

-  n 

9  v  _  : 

k  9  v 

y  9  v 

0^ 

9y 

97 

9x 

v  9y 

'  v  9i 

9q 

9q 

9q 

9q 

9q 

9q 

77 

9y 

97 

9x 

9y 

9z 

99 

95 

9x 

9z 

90 

90 

9x 

9z 

9A 

9A 

9x 

9z 

9r 

9r 

9x 

9z 

9V 

9V 

9V 

9V 

av 

av 

9x 

9y 

9z 

9  x 

9y 

9z 
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PPLPC 


PPLPC 


For  NDPR  =  6 

For  NDPR  =  7 


For  NDPR  =  8 


U  = 


A  0 


1  J 


A  0  0 


U  = 


0 


0  0  1 
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PPRINT 


PPRINT 


SUBROUTINE  IDENTIFICATION 


A.  Title 
PPRINT 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
RADR 

FUNCTION 


The  function  is  to  print  residuals  information  in  ESP0DDC. 
USAGE 

A.  Calling  sequence 
Call  PPRINT 

B.  Input 

1.  C0MM0N 

DCFLG 
DBASE 
IRCNT 
PDELFG 
PRESDT 
PUBS 
TEMP 
CDEG 
CKMER 
CMTER 
K0UT 

2.  Calling  Sequence 


C.  Output 

1  .  C0MM0N 


2.  Calling  sequence 


D.  Error/ action  messages 


DC  package  control  flags 

Number  of  days  from  1950  to  day  of  epoch 
Cells  for  partials  print 
Cells  for  partials  print 
Cells  for  partials  print 

Sensor  number,  time  R,  A,  E,  R,  a,  6  table 
Temporary  storage 
Degrees / radians 
km  /  e .  r . 

Meters/e.  r . 

Output  tape  number 
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PPRINT 


PPRINT 


SUBROUTINES  USED 

A.  Library 
GL0P 


B.  Program 

CLTIME 

Converts  an  input  time  into  its  Gregorian 
representation 

RMAD 

Compares  the  residual  output  quantities  with  a 
table  of  maximum  values 
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PRAXIS 


PRAXIS 


SUBROUTINE  IDENTIFICATION 


A.  Title 
PRAXIS 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 


The  functions  of  this  subroutine  are  described  below: 

a)  To  compute  the  eigenvalues  and  eigenvectors  of  a  real 
symmetric  3x3  matrix,  A  (stored  as  a  lower  triangu¬ 
lar  matrix).  The  eigenvectors  for  the  columns  of  a 
matrix  U  and  are  ordered  as  column  vectors  in  such 

a  way  that  the  sum  of  the  diagonal  elements  of  the  U 
matrix  is  maximized. 

b)  These  eigenvectors  are  then  used  to  compute  the 
three  angles  01,  02,  03  which  will  resolve  the  matrix  A 
into  a  diagonal  matrix  with  the  eigenvalues  of  A  as  the 
diagonal  elements. 

USAGE 


A.  Calling  sequence 

Call  PRAXIS  (A,  I,  B,  J) 

B.  Input 

1  .  C0MM0N 

2.  Calling  sequence 

L(A)  Address  of  an  array  A  where  the  matrix  is  stored 

I  Index  to  indicate  just  where  in  the  above  array 

the  first  element  of  the  matrix  is  [i.e.,  A(I)  is 
the  first  element  of  the  matrix.] 

L(B)  Address  of  an  array  B  where  the  results  of 
PRAXIS  are  to  be  stored 

J  Index  to  indicate  just  where  in  the  above  array 

the  first  element  of  the  results  are  to  be  stored 
(See  Output  for  arrangement  of  results  in  array  B.) 
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PRAXIS 


PRAXIS 


C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

-  X, 


'1 


B(J) 

B(J+1)  -  X- 

B( J+2)  -  X, 


eigenvalues  of  A 


B( J+3)  -  Un 

B(J+4)  -  U^  ^  )  first  eigenvector 

B( J+5)  -  Uu 


B(J+6)  -  U21 


B( J+7)  -  U 


B(  J+8) 


U 


22 

23 


second  eigenvector 


B(J+9)  -  U 

B(  J+l 0)  -  U 
B(  J  +  l 1 )  -  U 


31 

32 

33 


third  eigenvector 


B( J+l 2)  -  <p 

B( J+l 3)  -  <p? 

B( J+l 4)  -  03 


rotational  angles  (rad) 


B( J+l 5)  -  Y xj 

B(J  +  16)  -  }  square  roots  of  the  three  eigenvalues 

B(  J+l  7)  -  YS 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SQRTF 
C0SF 
SINF 
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PRAXIS 


B.  Program 

ATNQF  Arctangent  routine 

XCR0SS  Cross  product  routine 

EQUATIONS 

Compute  the  eigenvalues  of  A 

j  3 

m  =  y  tr  (A)  where  tr(A)  =  Y  a.. 

i- 1 


q  =  ~  det  (A-m  I) 

6p  =  sum  of  the  squares  of  the  elements  of  (A  -  ml).  From  "Cardano's" 
trigonometric  solution  of  det  jjA  -  ml)  -  pi  j  as  a  cubic  in  p,  the  eigen¬ 
values  of  A  are 


=  m  +  Z  Vp  cos  <p 


where 


X^  =  m  -  V  P  (cos  0  +  3  sin  0) 

=  m  f  *Vp  (cos  <p  -  3  sin  (p) 


.  l-l  A'p3  - 

0  —  -zr  tan  — - - 

r  3  q 


Compute  the  eigenvectors, 
values  X^,  X^,  X^. 


0-  0- 


TT 

T 


Eet  X  represent  one  of  the  three  eigen- 


_ ^ 


Ki 

aZZ 

\a32 


\ 

\ 

/ 
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PRAXIS 


C2  = 


/a21  \ 


a22  "  X 


/a31  \ 


X 


32 


\32  /  \a33  "  XJ 


/a 


C3- 


31 


32 


\ 


\a33  '  V 


all  '  X\ 


x 


21 


\  a  3 1  / 


If  C1  •  0;  set  .  If  Cj  •  0;  set  =  -  C^. 

u=l/3(C^+C^  +  C3) .  u  =  u/l  u  I  is  the  eigenvector  correspond¬ 
ing  to  X. 


Letting  the  three  eigenvectors  from  the  columns  of  the  matrix  U,  the 
following  diagram  shows  the  logic  used  to  maximize  the  sum  of  the  diago¬ 
nal  elements  of  U. 
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PRAXIS 


Finally,  compute  <j>^,  <p^,  <p ^ 
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PRC0NS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRC0NS 

B.  Segment 
ESP(#D 

C.  Called  by  subroutine 
IPRNT 

FUNCTION 

The  functions  are  to  print  the  program  constants,  the  sensor  types, 
and  to  print  the  sensor  sigmas. 

USAGE 


A.  Calling  sequence 
Call  PRC0NS 

B.  Input 

1  .  C0MM0N 

CSIG  Sixty  sets  of  sensor  sigmas 

CSTYPE  Sensor  sigmas  for  cr,  Ns*  and  N 
TEMP  Temporary  storage 

C.  Output 

1  .  C0MM0N 

2.  Calling  sequence 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 
GL0P 
PANT 

B.  Program 

UNPAKSN  Unpacks  the  sensor  sigmas 
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PRECES 


SUBROUTINE  IDENTIFICATION 


A.  Title 
PRECES 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
SWTSN 

FUNCTION 

This  subroutine  sets  up  information  for  the  ADJUST  subroutine.  Test¬ 
ing  is  done  to  determine  if  the  data  is  field-reduced  or  p  recision- reduced , 

and  to  determine  the  year  in  which  the  data  is  referenced,  (See  card  format.  ) 
USAGE 


A.  Calling  sequence 

Call  PRECES  (A,  B,  C) 

B.  Input 

1  .  C0MM0N 

2.  Calling  sequence 

A  Declination  (rad) 

B  Right  ascension  (rad) 

C  Equipment  type  and  equinox  (packed) 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

A  Declination,  precessed  (rad) 

B  Right  ascension,  precessed  (rad) 

D.  Error/  action  messages 
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PRECES 


SUBROUTINES  USED 
A.  Library 


B.  Program 

ADJUST  Updates  right  ascension,  declination  measurements 
to  equinox  of  integration 

CARD  FORMAT 

If  column  80  =  A  do  not  precess 
If  equipment  type  =  16,  (field  reduced) 

If  equipment  type  =17.  (precision  reduced) 

If  column  4,  5=16  and  6  —  -23°  equinox  year  =  1855 
If  column  4,  5  =  16  and  6^  -23°  equinox  year  =  1875 


Otherwise 

column 

70 

= 

0 

equinox  year 

of  1963 

Otherwise 

column 

70 

= 

1 

equinox  year 

of  1900 

Otherwise 

column 

70 

= 

2 

equinox  year 

of 

1925 

Otherwise 

column 

70 

= 

3 

equinox  year 

of 

1950 

Otherwise 

column 

70 

= 

4 

equinox  year 

of 

1975 

Otherwise 

column 

70 

= 

5 

equinox  year 

of  2000 

Otherwise 

column 

70 

= 

6 

equinox  year 

of 

1850 

Otherwise 

column 

70 

= 

7 

equinox  year 

of 

1855 

Otherwise 

column 

70 

8 

equinox  year 

of 

1875 

Otherwise 

column 

70 

= 

9 

equinox  year 

of 

I960 

Otherwise 

column 

70 

= 

10  do  not  precess 
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PRELIM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRELIM 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutines 
RADR 

FUNCTION 


The  function  is  to  calculate  preliminary  quantities  for  the  formulation 
of  residuals  and  partial  derivatives  of  observation  with  respect  to  solution 
parameters . 

USAGE 

A.  Calling  sequence 
Call  PRELIM 

B.  Input 


C0MM0N 

a . 

PSTAT(4) 

Cos  4>* 

PSTAT(5 ) 

Sin  4>* 

PSTAT(  6) 

ago  +  ^  ( raci ) 

PSTAT(7 ) 

w^s  (e.  r.  ) 

PSTAT(8) 

W3S  (e.  r.  ) 

b. 

PUBS(l) 

T  (min) 

PUBS(6) 

R  (e.  r .  / min) 

c. 

TRAJ(l) 

X 

TRAJ(2 ) 

y 

TRAJ(3 ) 

z 

TRAJ(4) 

X 

TRA  J (5 ) 

y 

TRAJ(6) 

z 

TRAJ(IO) 

>  TRAJX(57 )  =  partials  of  TRAJ(l-6) 
with  respect  to  Pi,  i  =  1,  NDPR 

d. 

NDPR 

Number  of  all  differential  plus  initial 
parameters  to  solve  for  (Category  1) 

e. 

TEMP 

Temporary  storage 

f. 

CWE 

Earth's  rotational  rate 

2.  Calling  sequence 
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C .  Output 


C(jMM(j)N 

a. 

PCMA 

b. 

PCSA 

c . 

PCSALF 

d. 

PCSE 

e. 

PRSUB1 

f. 

PSNA 

g- 

PSNALF 

h. 

PSNE 

i. 

PUDTI 

j- 

PUI 

k. 

PV 

1. 

PVI 

m. 

PWDTI 

n. 

PWDTPP 

o. 

PWI 

P- 

PWPP 

Calling  sequence 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

C0SF 

SINF 

SQRTF 

B.  Program 


EQUATIONS 


R  =  computed  slant  range 
Cos  A 

c 

Cos  (a  ) 
g 

Cos  E 

c 


Sin  A 

c 

Sin  (a  ) 

g 

Sin  E 

c 


Vector  (u^, 

u2’ 

u3) 

Vector  (u3 , 

u2‘ 

u3) 

\JV  i  +  V22 

Vector  (v^, 

V2’ 

V 

Vector  (w^, 

w2’ 

W-) 

Partial  derivatives 


Vector  (w^,  w9,  w^) 
Partial  derivatives 


y,  z)  and  station  positions  ($*,  h) 


The  computed  orbit  positions  (x, 
are  processed  to  produce  geocentric  and  topcentric  coordinates  of  the 
vehicle  in  an  Earth-fixed  coordinate  system.  Right  ascensions  of  the  station 


for  times  of  observations  t.  are 


=  (a  +  \)  +  oj  (t.  -  t  ) 
'go  e  i  o 


a. 

1 
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PRELIM 


Geocentric  position  and  velocity  of  the  vehicle  in  Earth-fixed  coordinates 
are 


-  — 1 

jP—  «■ 1 

^  — 

w  . 

cos  a  sin  a  0 

X 

1 

i  l 

w  ~ 

_ 

- s in  a .  c os  a .  0 

y 

2 

i  i 

w~ 

0  0  1 

z 

^  3 

i 

L_  — 

_  - 

—  — > 

“  -j 

- 

i 

Wi 

cos  a  sin  a  0 

X 

r  oo  y 
e  7 

W2 

-sin  a  cos  a  0 

y 

\ 

-00  X 
e  ! 

_W3_ 

i 

0  0  1 

—  w 

z 

The  station  position  in  meridian  coordinates  is  provided  by  the 
preprocessor  module  where  it  is  computed  from  geodetic  latitude,  cj>*, 
and  altitude,  h,  as  follows. 


A 

s 


cos  cj>*  f  b  sin  cj>* 


-1/2 


B 

s 


2,1  2 

sin  $*  +  — ~  cos  dp* 

b 

e 


-1/2 


g 

w  ^  ^(A^-fhJcos  dp* 

w0S  =  (b  B  +  h)  sin  dp* 
j>  e  s 

where  b^  is  the  polar  axis  of  the  reference  spheroid. 

Topocentric  coordinates,  direction  cosines  and  related  quantities  for 
the  vehicle  in  meridian  plane  coordinate  system  are  then 

g 

q  i  =  wj  -  w  (Topocentric  position  in  equatorial 

coordinate  system) 
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PRELIM 


q3  =  w3  -  w3 


R 


=Vi? 


+  q2  +  q3 


r 


ui =  qi/r 


"  =  <  uz  =  v 


u3  =  q3/r 

r 


(Topocentric  direction  cosines  in 
equatorial  system) 


Uj  =  (Wj  -  K  u^/r 


U  =  <  ^2  (™2  "  Ku2)/r 


u3  =  (w3  -  K  u3)/ r 
V. 


K  =  u-^w^  +  u-^ 


V1  “  uz 


v  “  /  v2  =  'ui  sin  +  u3  cos 

V3  =  U1  cos  *  u3  s^n 


(Topocentric  direction 
cosines  in  horizon  system) 


V 


2  ,  2 
+  V2 


Rx  =  VR 


sin  E  =  v. 


cos  E  =  V 
cos  A  =  v2/ V 

sin  A  =  v^/V 
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3w  i 
3p. 

cos  a 

sin  a 

0 

3w2 

c  i  n  n 

cos  a 

0 

3Pi 

ID  ill  w* 

3w3 

[w\ 

0 

0 

1 

9x 

9p, 


9^ 

3Pi 


9z 

9p. 


If  range  rate  observations  are  used  (PUBS  /  0),  then  variational 
equations  in  velocity  are  rotated  as  follows. 


awj" 

cos  a 

sin  a 

0 

3Pi 

co  ?X- 
e  3p. 

3p. 

= 

-  sin  a 

cos  a 

0 

iL . 

3Pi 

3x 

Ue  dp. 

9w3 

0 

0 

1 

3z 

-9Pi 

1 

_  9Pj 

where  the  parameters  p.  are  the  ADBARV  conditions  at  epoch  (a  ,  6  ,  p  , 
A  1  A  o  o  o 

Aq,  rQ,  v  ),  drag  parameter  (C^A/Zm)  and  coefficient  of  diurnal  drag 
variation,  €. 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
PRSSTB 

B.  Segment 
ESPQJDDC 

C.  Called  by  subroutine 
INTEG 

FUNCTION 


The  function  is  to  print  the  table  containing  estimates  of  the  means 
and  standard  deviations  of  residuals  by  sensor  and  type. 

USAGE 

A.  Calling  sequence 
Call  PRSSTB 

B.  Input 

1.  CQ  MM0N 

VSTR  Each  sensor  with  data  involved  in  the  differential 
(NSSTB)  correction  is  represented  in  this  array  in  the 
following  format: 

Sensor  No. 

ZAR,  ^ =  1  ’  nr a 

EARi2 

nda  *  10000  +  n  R 

K  K 

£aa.  ‘=1.-naA 

I  ,AAi>2 

naA  *  10000  +  NAR 

.  TVT  A 

1  =  l’  — ne 


Eaei 
I  <AEi>2 
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PRSSTB 


N„A  *  10000  +  N_, 

hj 

5>*i 


1 


R 


*  10000  +  n^dt 


TEMP  Temporary  storage 
K0UT  Output  tape  number 


2.  Calling  sequence 


C .  Output 

1.  C0MM0N 

2.  Calling  sequence 

D,  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 
SQRTF 

B.  Program 

EQUATIONS 


cr 


AR 


v 


2>A.)2 
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PRSSTB 


M 


M 


DiEi> 


E~  N  A 
E 


£  (ARDT.) 


RDT 


RDT 


"AE  = 

°"ardt 


[£(  ARDT.)‘ 


N 


- 

RDT 


-  M 


2 

R 
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PT$C 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PT  0C 

B.  Segment 
ESP($D 
ESP0DDC 

C.  Called  by  subroutine 
DPRLM  (ESP$D) 

APPLY  (ESPCjDDC) 

FUNCTION 

The  function  is  to  convert  polar  coordinates  to  Cartesian  coordinates. 
USAGE 

A.  Calling  sequence 
Call  PT0C  (C,  D) 

B.  Input 

1  .  C0MM0N 

2.  Calling  sequence 

C  The  address  of  a  six-dimensional  array  containing 
a,  6,  (3,  A,  R,  V  (angles  in  radians) 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

D  The  address  of  a  six-dimensional  array  which  will 

contain  x,  y,  z,  x,  y,  z.  The  units  of  this  set  will  be 
the  same  as  the  input  R,  v  units. 

D.  Error/action  messages 
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PT$C 


SUBROUTINES  USED 

A.  Library 
C(J)SF 
SINF 

EQUATIONS 

x  =  R  cos  6  cos  a 
y  =  R  cos  6  sin  a 
z  =  R  sin  6 

x  =  vjcos  a(-cos  A  sin  (3  sin  6  +  cos  (3  cos  6)  -  sin  A  sin  (3  sin  a 
y  =  vjsin  a(-cos  A  sin  (3  sin  6  +  cos  p  cos  6)  +  sin  A  sin  p  cos  a 
z  =  v(cos  A  cos  6  sin  p  +  cos  p  sin  6) 
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SUBROUTINE  IDENTIFICATION 


A. 

T  itle 

PUPB 

B. 

Segment 

ESP0DDC 

C. 

Called  by  subroutine 

RADR 

FUNCTION 

The  function  of  this  subroutine  is  to  evaluate  the  partials  of  observa¬ 
tions  with  respect  to  biases  of  time,  sensor  latitude,  sensor  longitude,  and 
sensor  altitude.  The  observation  type  and  the  bias  type  are  given  in  the 
calling  sequence. 


USAGE 

A.  Calling  sequence 
PUPB  (I,  J) 


B.  Input 

1.  C0MM0N 
CQ&UNT 
PCMR 
PCSA 
PCSALF 
PCSE 
PRSUB1 
PSNA 
PSNALF 
PSNE 
PSTAT 
PUDTI 
PUI 


Number  of  lines 
R  =  computed  slant  range 
Cos  A 

c 

Cos  (a  ) 

g 

Cos  E 

c 

R}  =  VR 
Sin  A 

c 

Sin  (a  ) 

g 

Sin  E 

c 

Working  storage  for  sensor  information 
Vector  (u^ ,  u^,  u 
Vector  (u^ ,  u^,  u^) 
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PUPB 


PV 

PVI 

Vector  (Vj  ,  V^  V  J 

PW  DTI 

Vector  (Wj,  w^,  w^) 

PWI 

Vector  (w^,  w^) 

TRAJX 

x>  y»  z,  x,  y ,  z 

CWE 

Earth's  rotational  ra 

KQ*UT 

Output  tape  number 

Calling 

sequence 

J  =  1  fo 

r  R 

=  Z  for  A 
=  3  for  E 
=  4  for  R 
=  5  for  H 
=  6  for  D 
1  =  7  for  t. 


=  8  for  0^' 

=  9  for  i  . 


-  10  for  h. 


Output 

1.  C0MM0N 


Z.  Calling  sequence 

»  ^  3(variable  J) 

B  9(variable  I) 

D.  Error/action  messages 

PARTIAL  (  )  WITH  RESPECT  (  )  ASKED  FOR 

Given  off-line  when  I  and  J  exceed  current  prog  ram  limits  (I 
J  =  6) 


=  io, 
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PUPB 


PUPB 


SUBROUTINES  USED 

A.  Library 
GLQP 

B.  Program 

LINES  Line  counter 


EQUATIONS 


Range  (type  1  observation) 


9R 

0  ( p # 


s  s 

-  “  u3wi  ®  t^as) 


W  =  ulw2  •  U2W1  (type  9  bias) 


8  R 

=  -Uj  cos  0#  -  sin  0*  (type  10  bias) 


0R 

— -  =  u  ^  w  ^  +  u7w^  +  (type  7  bias) 

Azimuth  (type  2  observation) 


0  A  c  i  ■n  A 

r7  =  — — - (w^  cos  0-'*  +  sin  0*)  (type  8  bias) 


90 


9A  1 
9X 


w.  cos  A  +  w?  sin  0*  sin  A 


R, 


(type  9  bias) 


9A 

9h 


=  0  (type  10  bias)  R^  =  VR 


^r  =  ^z(v2h  •  Vz* (type  7  bias) 

Elevation  (type  3  observation) 


9E  1  f  **  •  **  3R  .  . { 

90^  =  p-  ^w3  cos  r  "  wi  sm  0^  "  00^  sm  EJ  (type  { 


^  (w2  cos  0*  -  sin  E  ]  (type  9  bias) 


bias) 
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PUPB 


=  -  p—  sin  (type  10  bias) 

u  cos  0*  +  u  sin  0'i 

dxL r  I  J 


at 


cos  E 


(type  7  bias) 


Range  Rate  (type  4  observation) 


8R  s .  s .  0  x 

9^*  =  w3  U1  -  w!  u3  (type  8  bias) 


a  r  . 

=  (wzb1  -  W1  bz)  +  (w2ui  "  (tyP6  9  bias) 


3R 


g-pp  =  ~ u  ^  cos  0*  -  sin  0*  (type  10  bias) 


3R  £  /—  — x  II w 1 1  (w  •  up  .  in  k-  \ 

_  =  R  =  (w  •  u)  +  — -  - - p- -  (type  10  bias) 


where 


w 


w.  =  -u)  w.  +  Zou  (-x  sin  a  +  y  cos  a)  +  (x  cos  a  +  y  sin  a) 
1  e  1  e  7  7 


=  < 


w  =  \  w 


=  -cj  w  +  Zoo  (-x  cos  a  -  y  sin  a)  +  (-x  sin  a  +  y  cos  a) 
e  l  e 


w3  =  z 


Hour  Angle  (type  5  observation) 


3H 


*Z  \  s 


a  0^ 


-  =  cos  H  — j  ]  w  ^  (type  8  bias ) 


3H  Z  _/Siwi  +  S2WZ 

~d\ 


-  cos1"  H| — - — - — ^ — - — “|  (type  9  bias) 


ll 


=  cos^  H  cos  0*  pp-  (type  10  bias) 


3H 

at 


ru^  sin  H  +  u^  cos  H 
^  cos  D 

4-Z30 


(type  7  bias) 


PUPB 


PUPB 


Declination  (type  6  observation) 


9D 
0  0^ 


s  0R  .  _ 

■  w ,  -  —  x  sin  D 


1  0  0* 


R  cos  D 


(type  8  bias) 


0D  0R  sin  D  /4.  n  u*  \ 
IX^RSTD  (type  9  bias) 


9D 

9h 


■  **  9R  •  r> 

-sin  (h-<'  -  -prr—  s in  D 

on 

R  cos  D 


(type  10  bias) 


9D 


9D,  . 
bias 


=  1  (type  6  bias) 


9D 

9t 


cos  D 


(type  7  bias) 
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RADR 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RADR 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
INTEG 

FUNCTION 

Function  is  to  control  region  for  the  formulation  of  the  system  of 

equations  to  be  solved  (Ax  =  B).  A  is  the  matrix  of  partial  derivatives  of 

observations  with  respect  to  solution  variables  and  B  is  the  vector  of 

observation  residuals.  RADR  also  drives  those  routines  which,  given 
T  T  T 

A,  B,  form  A  A,  A  B,  and  B  B.  It  also  drives  the  residuals  print 
routine  s . 

USAGE 

A.  Calling  sequence 
Call  RADR 

B.  Input 

1.  C0MM0N 


NPBIS 


CKRMS 

Cgf>UNT 


IPFRST 


IRCNT 

IVSTR 

NAR$W 


NPR 


NPRCD 


NDPR 


Sigma  multiplier  for  deletion  criterion 
Number  of  lines 

0  to  indicate  first  time  in  RADR 
Cells  for  partials  print 
Fixed  point  variable  storage 

Starting  location  where  one  row  of  the  augmented 
matrix  (A,  B)  is  stored 

Number  of  all  differential  plus  initial  param¬ 
eters  to  solve  for  (Category  1) 

Identifies  table  for  current  estimates  of 
Category  Z  variables 

Number  of  all  parameters  to  solve  for 

Identifies  table  for  definition  of  Category  Z 
variables  to  be  solved  for 
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RADR 


RADR 


NSSTB 

Identifies  the  starting  location  where  station 

information  concerning  computed  sigmas 
means  of  residuals  are  stored 

and 

PCMR 

Computed  slant  range 

PDELFG 

Cells  for  partials  print 

P0BCNT 

Total  number  of  accepted  observations 

PRESD 

Residuals 

PSIG 

Sigma  list 

PSTAT 

Working  storage  for  sensor  information 

PUBS 

Sensor  number,  time,  R,  A  E,  R,  a,  6 

tabl 

PUI 

Vector  (u^ ,  u^,  u^) 

PVI 

Vector  (Vj,  v^,  v3) 

PWDTI 

Vector  (w^,  w^,  w^) 

TSUS 

Current  total  S(#S 

VSTR 

Floating  point  variable  storage 

CPI 

IT 

C2PI 

2tt 

Calling  sequence 

C.  Output 

1  .  C0MM0N 

The  array  VSTR  (NATA)  contains  the  total  A^A,  A^B,  B^B. 
2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

ASIN 
ATNQF 
DRDP 


Arc  sine  routine 
Arc  tangent  routine 

Partials  of  observations  w.  r.  t.  Category  1  variables 
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RADR 


RADR 


LEGS1 

LINES 

PARC^UT 

PASTER 

PHEAD 

PIMC^D 

PPRINT 

PRELIM 

PUPB 

SSTB 

EQUATIONS 


T  T 

Forms  A  A  and  A  B  given  A  and  B 
Line  counter 

Computes  additional  residual  information 
Sets  up  an  asterisk  for  printing 
Prints  residuals  header 

Principal  value  of  angle  between  0  and  Ztt 
Prints  residuals 
Preliminary  calculations 

Partials  of  observations  w.  r.  t.  Category  2  variables 

Accumulates  sum,  sum  of  squares,  and  number  of 
residuals  by  sensor  and  data  type 


Computation  of  Observables  from  Fitted  Orbit 

The  fitted  orbit  is  used  to  produce  computed  "observables"  for  com¬ 
parison  with  observations. 


„  /  z  ,  z  ,  z 

R  =  yqL  +  q2  +  q3 

(range) 

A  =  tan  ^  v  j  / 

(azimuth) 

TT  ■  -1  -1  v 

E  =  sm  =  cos  V 

( elevation) 

H  =  tan  ^  ( -u^/u^ ) 

( topocentric 

local  hour  angle) 

T-X  •  'I 

D  =  sin  u^ 

(topocentric 

declination) 

R  =  u  •  W 

(range  rate) 

Computation  of  partial  derivatives  of  observations  with  respect  to 
observational  biases  is  shown  below. 

a»i  f1-  ifi=j  i= *■ z' 3' 4' 5>  6 

9^b  i 

1  ip.  lf  1  =£ j  j=l,Z,  3,  4,5,6 
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READPR 


READPR 


SUBROUTINE  IDENTIFICATION 

A  Title 

READPR 

B.  Segment 
ESPQ5D 

C.  Called  by  subroutine 

JDCSRCH  (ESPQ5D) 

MAIN  (ESPQ5D) 

FUNCTION 

This  subroutine  reads  input  cards  in  the  specified  formats.  A  diag¬ 
nostic  check  is  made  to  determine  if  certain  conditions  are  satisfied.  If 
an  input  error  condition  occurs,  the  next  JDC  card  will  be  read  and  then 
the  cards  for  the  case  will  be  processed. 

RDC?NE  is  a  self-contained  subroutine  within  READPR,  referenced 
from  outside.  This  routine  reads  one  card  and  returns  with  the  card  image 
location  in  index  register  3. 

SIGPACK  is  a  self-contained  subroutine  within  READPR  referenced 

from  outside.  The  routine  takes  four  floating  point  numbers,  scales  them 
4 

by  10  and  packs  them  as  two  words  in  the  specified  location.  The  packing 
is  that  specified  for  CSIG  table. 


USAGE 


A.  Calling  sequence 


Call  READPR 


B.  Input 


CDRUNB 

CARBUF 

CLDSTR 

FRSTFL 

CQ5NVR 

ICTYP 


Running  buffer  count  for  card  input 

Card  input  buffer 

Cold  start  flag 

First  time  flag 

Conditional  start  flag 

Used  to  test  need  for  IC0ND  and  ITIME  cards 


C .  Output 

Cells  are  filled  depending  on  the  name  of  the  identification  field 
as  well  as  the  card  number  in  columns  1  and  2. 
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READPR 


READPR 


Flags  are  set  according  to  certain  type  of  cards  which  have  been 
read.  These  flags  are  then  analyzed  before  returning  control  to 
the  calling  program, 


D.  E  rror/action  messages 


1  .  On  and  Off  line 

DATA  NAME  (  )  NOT  FOUND. 

Card  name  is  illegal,  proceed  with  reading  cards. 

CONDITIONAL  REQUIREMENTS  NOT  MET —PROCEEDING 
TO  NEXT  CASE. 

CLDSTR  (cold  start  flag)  =  2  and  CONVR  /  0,  find  next 
JDC  card  and  then  start  reading  more  data. 

2 .  Off  Line 

(  )  CARD  REQUIRED  FOR  THIS  RUN. 

(ICTYP)  IC0ND  and  ITIME  are  in  the  case,  no  ICTYP  card. 

(ICC^ND)  ICTYP  and  ITIME  cards  are  in  the  case,  no 
IC0ND  card. 

(ITIME) -ICTYP  and  IC0ND  card  are  in  this  case,  no 
ITIME  card. 

COLUMN  68  IN  CARD  7  IS  ILLEGAL.  CARD  IMAGE  BELOW. 

Column  68  in  element  card  7  is  not  a  0,  1  or  2;  proceed  with 
reading  cards  . 


SUBROUTINES  USED 


A.  Library 


XFIX 

MXORD 


Convert  to  fixed  Fortran  integer 
Read  data  tape 


B.  Program 


XSRCH 

PANT 


FLEX 

GL</P 


JDCSRCH 


Write  comments  on  typewriter 
Write  output  tape  11 
Search  for  next  JDC  card 
Read  card  images 
Spacing  control 


4-238 


READPR 


READPR 


Figure  4-7  a. 


READPR  Flow  Diagram 
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READPR 


READPR 


9 

^SECTR  ?^YES  SECTr) 
^NO  > - / 

/tessr  ?Ves  — /rdtessr\ 

1NO  - - X 

/  "  V 

(  APF10  ?  V 


Figure  4-7  b.  READPR  Flow  Diagram  (Continued) 


4-240 


READPR 


READPR 


Figure  4-7  c.  READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


RD0NE 


Figure  4-8. 


RD0NE  Flow  Diagram 
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READPR 


READPR 


Figure  4-9. 


DIAGPR  Flow  Diagram 
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READPR 


READPR 


CALLING  SEQUENCE 


STONM 


TMD 

TMQ 


C/HLT,  NN;  C/HLT,  MM 


Figure  4-10.  ST0NM  Flow  Diagram 
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READPR 


READPR 


CALLING  SEQUENCE 

TMQ 

C/HLT,  FR0M;  C/HLT,  T0 

TMA 

N 

JMP 

ST0SUB 

FR0M  IS  LOCATION  OF  SET  TO  BE  STORED 
T0IS  LOCATION  OF  SET  TO  BE  STORED 
N  IS  NUMBER  OF  ITEMS  TO  BE  STORED  AS  INTEGER 


Figure  4-11.  ST0SUB  Flow  Diagram 
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READPR 


READPR 


RDSTAN 


CALLING  SEQUENCE  JMP  RDSTAN 

NOTE:  IF  FIELD  BLANK,  FIXED  ZERO  REPLACES  FLOATING  ZERO 


Figure  4-  12  RDSTAN  Flow  Diagram 
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READPR 


READPR 


RDVFLD  -  SUBROUTINE  TO  SET  AND  READ  VARIABLE  SIZE 
FIRST  ITEM  AND  REST  OF  FIELD  SINGLE  DIGITS 
CALLING  SEQUENCE  TMA  K 

TMQ  C/H LT ,  PJ28  +  N;  CAMA,  DAT  1 
K  =  NUMBER  ITEMS  PER  FIELD 

Q  =  CONTAINS  FIRST  PARAMETER  F0R  XSRCH  READ  FIRST  FIELD 


RDVFLD 


Figure  4-13. 


RDVFLD  Flow  Diagram 
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READPR 


READPR 


SETCNT  -  SUBROUTINE  TO  COUNT  SETS  READ  BY  COUNTING  TO  FIRST  BLANK  FIELD 
CALLING  SEQUENCE  JMP  SETCNT 

NOTE:  NUMBER  OF  SETS  IN  LEFT  ADDRESS  OF  A  REG  ON  EXIT 


Figure  4-14.  SETCNT  Flow  Diagram 
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READPR 


READPR 


STRDF  -  SUBROUTINE  TO  SET  UP  AND  READ  FIELDS  OF  1  COLUMN  ITEMS 


CALLING  SEQUENCE  TMA  NUMBER  ITEMS  PER  FIELD  (INTEGER) 

JMP  STRDF 

EXIT  WITH  C/HLT,  NUMBER  OF  SET;  C/HLT,  NUMBER  PER  SET  IN  A 

STRDF 
PUT 

C/IC0Z,  10X128  +  1;  CAMA,  DAT  1 
INTO  Q 

SAVE  NUMBER  ITEMS  IN  TEMP 


RDVFLD 


READ  VARABLE 
FIELD  CARD 


Figure  4-15.  STRDF  Flow  Diagram 
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READPR 


READPR 


NEXTFLD 


CARDIM  +  1— XI 
HEADER— X2 

MOVE  (CARDIM  +  1)— (HEADER) 
INCREASE  X2  BY  1 
INCREASE  XI  BY  l 

N°/  IS  XI  \ 

XSRCH  PARAMETERS  FOR  A  99  CARD  READ 


C/JBT,  5*  128+1;  CAM  A,  DAT  1  +  10 
C/JBT,  24*  12B  +  1;  CAMA,  DAT2  +  10 
C/JBT,  43*  128  +  1;  CAMA,  DAT3  +  10 
C/JBT,  62*  128  +  1;  CAAM,  DAT4  +  10 
C/JBT,  9*  128  +4;  CAMA,  ID  1 
C/IC0Z,  23*  128  +  14;  CAMA,  DAT1 
C/JBT,  2B*  12B  +  4;  CAMA,  ID2 
C/IC0Z,  42*  12B  +  14;  CAMA,  DAT2 
C/JBT,  47*  128  +  4;  CAMA,  ID3 
C/IC0Z,  61*  12B  +  14;  CAMA,  DAT3 
C/JBT,  66*  12B  +4;  CAM  A,  ID4 
C/JBT,  23*  128  +  14;  CAMA,  DAT1  +  5 
C/JBT,  42*  128  +  14;  CAMA,  DAT2  +5 
C/JBT,  61*  128  +  14;  CAMA,  DAT  3  +  5 
C/JBT,  BO*  12B  +  14;  CAMA,  DAT4  +  5 
C/IC0Z,  80*  12B  +  14;  CAAM,  DAT4 


CARD  99 


Figure  4-16  a.  READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


RD  IT  IME 


SET  FGITIM 
FLAG  TO  1.0 


CRD  STAN  "X 

READ  AS  } 
STANDARD  J 


C/HLT,  I  TIME 
—  D  REG 


G0STARI  | 


CGST0AR  \ 

GO  STORE  ) 
DATA  J 


RDIC0ND 


RDSTYPE 


RDSTYPE 


Figure  4-16  b. 


READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


Figure  4-16  c.  READPR  Flow  Diagram  (Continued) 


4-Z5Z 


readpr 


READPR 


ft  DS  TYPE 


XSRCH  PARAMETERS  FOR  STYPE  CARD 


C/HLT,  13  *  128+4;  CAMA,  DAT1 
C/HLT,  19  *  128  +  4;  CAMA,  DAT1  +  1 

SENSOR  NO.  ' 
Gs 

C/HLT,  15  *  128  +  2;  CAMA,  DAT  1  +  2 

<rT 

►  FIELD  1 

C/HLT,  20  *  128  +  1;  CAMA,  DAT1  +  3 
C/HL-T,  23  *  128  +  3;  CAMA,  DAT1  +  4 

FLAG 

*s  J 

C/HLT,  32  *  128  +  4;  CAMA,  DAT  1  +  5 
C/HLT,  38  *  128  +  4;  CAMA,  DAT1  +  6 

SENSOR  NO.  ' 
GS 

C/HLT,  34  *  128  +  2;  CAMA,  DAT  1  +  7 

a  T 

►  FIELD  2 

C/HLT,  39  *  128  +  1;  CAMA,  DAT1  +  8 
C/HLT,  42  *  128  +  3;  C/CAM,  DAT  1  +  9 

FLAG 

S 

C/HLT,  51  *  128  +4;  CAMA,  DAT  1  +  10 
C/HLT,  57  *  128  +  4;  CAMA,  DAT1  +  11 

SENSOR  NO.  ' 
GS 

C/HLT,  53  *  128  +  2;  CAMA,  DAT1  +  12 

ay 

’  FIELD  3 

C/HLT,  58  *  128  +  1;  CAMA,  DATl  +  13 
C/HLT,  61  *  128  +  3;  CAMA,  DATl  +  14 

FLAG 

N$ 

C/HLT,  70  *  128  +  4;  CAMA,  DATl  +  15 
C/HLT,  76  *  128  +  4;  CAMA,  DATl  +  16 

SENSOR  NO.  ' 
Gs 

C/HLT,  72  *  128  +  2;  CAMA,  DATl  +  17 

aJ 

►  FIELD  4 

C/HLT,  77  *  128  +  1;  CAMA,  DATl  +  18 
C/HLT,  80  *  128  +  3;  C/CAM,  DATl  +  19 

FLAG 

*s  J 

RDICTYP 


RDBNDS 


Figure  4-16  d.  READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


RDPRDCT 


SET  FLAG 
PSTFLG  +1=1-0 


C 


RDSTAN 


DATI-X1 

DTARG-X2 


RDPRDA _ I _ 

/  IS  FIELD  \ 

L_I _ / 


RDSIGMA 


YES 


NO 


C  GET  INITIAL  DAYS  ) 


STORE  WHOLE 
NUMBER  OF 
DAYS  — D  TARG+  3 


GET  FRACTION 
OF  DAY  AND 
STORE-  DTARG  +  4 


RDPRAA 


RDSMAT 


INCREASE  X2  BY  5 
INCREASE  X  1  BY  1 


NO  f  IS  XI  \YES 

U*-— <  =  DAT  1  +  4  ) - ^M^ 


RDUPMAT 


RDDRAG 


c 


RDSTAN 


J 


C/HLT,  DAT1;  C/HLT,  DRAG 

-  Q  REG 

C/HLT,  4,  C/HLT,  1 

-  D  REG 

_ 

ST0NM 


Figure  4-16  e.  READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


SIGPACK  -  SUBROUTINE  TO  SCALE  SIGMAS  BY  JO4  AND  PACK  2  PER  WORD 
CALLING  SEQUENCE  TMA  C/HLT,  L0COF  FLOATING  SIGMAS;  C/HLT,  ST0RE  10  C 
JMP  SIGPACK 


SIGPACK 


INT35 


INT35-  SUBROUTINE  T0  GET  INTEGRAL  PART  OF  NUMBER  AT  SCALE  35 
CALLING  SEQUENCE  TMA  ARGUEMENT 
JMP  INT35 


Figure  4-16  f. 


READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


RDRADPR 


RDNITER 


RDCATI 


SET  FGCAT  1 
FLAG  =  1.0 


£ 


STRDF 


8  ITEMS  PER 
FIELD 


ST0NM 


C  HLT,  DAT  1; 
C/HLT,  CAT  1 
IN  Q 
VG/HLT,  i;  C/HLT, 
IN  D 


RDCAT2 


SET  FGCAT2 
FLAG  =  1.0 


RDVFLD 


D  11  IN  A 

C/HLT,  13  *  128  +  4;, 
*SCAmA,  DAT  1  IN  i 


ST0NM 

C  HLT,  DAT  1; 
C/HLT,  CAT2 
IN  Q 

S.C/HLT,  I;  C/HLT, U> 
IN  D 


RDZ0NAL 


/  STRDF  \ 

( - 1 1  ITEMS  PER - ) 

\ _ J:|LP _ / 


ST0NM 
C  HLT,  DAT  1; 


C/HLT,  ZONAL 
IN  Q 

S.C/HLT,  i;  C/HLT,  11/ 
IN  D 


Figure  4-16  g.  READPR  Flow  Diagram  (Continued) 


4-256 


READPR 


READPR 


RDAPF  10 


X5RCH  PARAMETERS  FOR  APF10  CARD 

C/IC0Z,  13*  128  +  4;  CAMA,  DAT1 
C/IC0Z,  18*  128  +5;  CAMA,  DATl  +  1 
C/IC0Z,  23*  128  +  5;  CAMA,  DAT  1  +  2 
C/IC0Z,  32*  128  +  4;  CAMA,  DAT  1  +  3 
C/IC0Z,  37*  128  +  5;  CAMA,  DAT  1  +  4 
C/IC0Z,  42*  128  +5;  CAMA,  DAT  1+5 
C/IC0Z,  51*  128  +  4;  CAMA,  DAT  1  +  6 
C/IC0Z,  56*  128  +  5;  CAMA,  DATl  +  7 
C/IC0Z,  61*  128  +  5;  CAMA,  DAT  1  +  8 
C/IC0Z,  70*  128  +  4;  CAMA,  DAT  1  +  9 
C/IC0Z,  75*  128  +  5;  CAMA,  DATl  +  10 
C/IC0Z,  80*  128  +5;  C/CAM  DATl  +11 


XSRCH  PARAMETERS  FOR  TESSR  CARD 

C/IC0Z,  11*  128  +  2;  CAMA,  DATl 
C/l  00  Z,  14*  128  +2;  CAMA,  DATl  +  1 
C/IC0Z,  17*  128  +  2;  CAMA,  DAT  1  +  2 
C/IC0Z,  20*  128  +  2;  CAMA,  DATl  +3 
C/IC0Z,  23*  128  +  2>  CAMA,  DATl  +  4 
C/IC0Z,  30*  128  +  2;  CAMA,  DAT  1  +  5 
C/IC0Z,  33*  128  +  2;  CAMA,  DATl  +  6 
C/IC0Z,  36*  128  +  2>  CAMA,  DAT  1  +  7 
C/IC0Z,  39*  128  +2;  CAMA,  DATl  +  8 
C/IC0Z,  42*  128  +  2;  CAMA,  DATl  +  9 
C/IC0Z,  49*  128  +  2;  CAMA,  DATl  +  10 
C/IC0Z,  52*  128  +  2;  CAMA,  DATl  +  11 
C/IC0Z,  55*  128  +  2;  CAMA,  DATl  +  12 
C/IC0Z,  58*  128  +  2;  CAMA,  DATl  +  13 


Figure  4-16  h.  READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


RDDELET 


c 


CLEARD 


) 


CARDIM— X3 

Q  XSRCH 

•  XSRChf) 

ST0NM 


rC/HLT,  DATI;C  HLT,  DELET 
IN  Q 

C/HLT,  4;  C/HLT,  2 
IN  D 


XSRCH  PARAMETERS  FOR  DELET  CARD 


C/IC0Z,  16*  128  +7;  CAMA,  DAT  1 
C/IC0Z,  23*  128  +7;  CAMA,  DAT1  +  1 
C/IC0Z,  35*  128  +7;  CAMA,  DAT  1  +  2 
C/IC0Z,  42*  128  +  7;  CAMA,  DAT  1  +  3 
C/IC0Z,  54*  128  +  7;  CAMA,  DAT  1+4 
C/IC0Z,  61*  128  +7;  CAMA,  DAT  1  +  5 
C/IC0Z,  73*  128  +7;  CAMA,  DAT  1  +  6 
C/IC0Z,  80*  128  +7;  C/CAM,  DAT  1  +  7 


Figure  4-16  i.  READPR  Flow  Diagram  (Continued) 
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READPR 


READPR 


SET  FGELEM 

FLAG  =  1.0 

SHIFT  CARD 
NUMBER  OF  Q 

4.0 - -  DTYPE 

CARD  NUMBER 

BACK  TO  A 

— YEs/  card  DUMBER  \ 

\  _3  / 


- - - 

is  \  yes 

CARD  NUMBER  ) - — - - 

"  /  ~ 


J^RCH  :  xsrch 


(ELEMl) 


> 


r~ ■■■  1  ■  A  ELM  2 

/  CARD  NUMBER  \  YES - —Q  XSI 

I  NO 


XSRCH  •  XSRCH 

(ELEM2) 


3- 


/ - V 

/  IS  \  YES  r 

(  CARD  NUM8ER  >  - *4 — 

\ _ ?  /  ^ 


XSRCH  ♦  XSRCH 

(ElEm^ - 


3 


j  l  ELM4 

/  CARD  NUMBER  \— — RCH  ^ 


/ -  - \ 

\  3 _ / 


/ - - V  el 

/  IS  \  YES  /*" 

(  CARD  NUM8ER  )  - — 

\  4_  J ^ 

NO 

/ -  - \ 

\ _ _i_  J 


-XSRCH  •  XSRCH 


(ELEM  6) 


3- 


^  XSRCH  ;  XSRCH 

(ELEM»  - 


EL  SKIP 


COL  6B 

=  0,  4.0— DN  REV  i 
-  1,  3.0— DN  REV  h 


BREAK  UP 
DAYS  INTO 
WHOLE  AND 
FRACTION 


XSRCH  PARAMETERS  FOX  ELEMENT  CARDS 


/  y  2,  1.0— DN  REV  +  3/ 

C/ICOZ,  50*  12B  +  14; C/CAM,  DATA  +  9 

COL  6B  *  ,  0,  1,  OR  2 

ELEMENT  CARD  NO.  7  (ELEM7) 

1 

C/JBT,  6B*  128  +  1;  C/CAM,  C0L  6B 

(DNREV  +  3)  -  4.0 

r  GLOP  ■ 

.  GLOP  A 

Y  COL  68  IS  ILLEGAL  J 

ELEMENT  CARD  NO.  I  (ELEMl) 

C/IC0Z,  36*  )2B  +  14;  CAMA,  DN  REV  +  2 
C/IC0Z,  6*  128  +  3;  CAMA,  DN  REV  +5 
C/IC0Z,  36*  12B  +  14;  CAMA,  DATA 
C/IC0Z,  50*  12B  +  14;  CAM  A,  DATA  +  2 
C/IC0Z,  64*  128  +  14;  C/CAM,  DATA  +  3 
ELEMENT  CARD  NO.  2  (ELEM  2) 

C/IC0Z,  36*  12B  +  14;  CAMA,  DSDAY 
C/IC0Z,  12*  128 +  2;  CAMA,  DYEAR 
C/1C0Z,  64*  128  +  14;  C/CAM,  DATA  +  6 
ELEMENT  CARD  NO.  3  (ELEM3) 

C/1C0Z,  36*  128  +  14;  CAMA,  DATA  +4 
C/IC0Z,  50*  128  +  14;  C/CAM,  DATA  +  5 
ELEMENT  CARD  NO.  4  (ELEM  4) 

C/IC0Z,  22*  12B  +  14;  C/CAM,  DATA  +  7 
ELEMENT  CARD  NO.  6  (ELEM  6) 

C/IC0Z,  22*  12B  +  14;  CAMA,  DATA  +  1 
C/IC0Z,  36*  12B  +  14;  CAMA,  DATA  +  8 


Figure  4-16  j.  READPR  Flow  Diagram  (Continued) 
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RDXYZ 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RDXYZ 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
P0STPR 

FUNCTION 


Function  is  to  count,  sort,  and  compute  At,  t  sequences  from  the 
PRDCT  card  entries  or  for  the  sets  of  x^,  y^,,  Zj,,  t^,  tp^  input. 

USAGE 

A.  Calling  sequence 
Call  RDXYZ 


B .  Input 

1.  COMMON 
DTARG 

TEMP 

TEPOCH 

DSDAY 

DSFDAY 


Array  containing  the  sets  of  x^,,  y^,,  z^,  t^, 
tpD  or  the  times  from  the  PRDCT  card 

Temporary  storage 

Epoch  time,  minutes  from  0  day  of  epoch 

Epoch  day  number 

Epoch  time,  fractions  of  a  day 


2.  Calling  sequence 


C .  Output 

1  .  COMMON 

DELTT  At,  t  sets  to  cover  the  range  of  times  in  the 

DTARG  array 

2.  Calling  sequence 

D.  Error/action  messages 
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RDXYZ 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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RDCOM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RDCOM 

B.  Segment 

ESPOD 

ESP0DDC 

ESPODEPH 

C.  Called  by  subroutines 
DPR0S  (ESPOD) 

ESPODEPH  DRIVER  (ESPODEPH) 

INTEG  ( ESPQ/DDC) 

READPR  (ESPOD) 

FUNCTION 

Function  is  to  read  COMMON  data  storage  from  the  work  tape  into 
core.  This  subroutine  reads  a  fixed  number  of  blocks  from  tape  "MT"  into 
consecutive  cells,  from  the  start  to  the  end  of  COMMON.  This  subroutine 
assumes  the  next  block  is  a  sentinel  block  on  tape  and  bypasses  it.  The 
first  block  on  tape  contains  blanks  except  for  the  first  and  second  words. 
70ATAPE7  is  the  first  word,  and  OXXXAAAA  is  the  second  word.  (XXX 
represents  the  vehicle  number  and  A  represents  a  blank).  Subroutine 
RDCOM  checks  for  correct  tape  identification.  If  there  is  not  a  match  of 
I.D.'s,  a  message  is  printed  and  the  program  exits  to  next  case. 


USAGE 


A.  Calling  sequence 
Call  RDCOM 


B .  Input 


1.  COMMON 


C  WE 
DBUFS 
DVEHN 
MT 


Earth's  rotational  rate 
Auxiliary  buffer  storage 
Vehicle  number  and  name  (BCD) 
Observation  tape  number 


2.  Calling  sequence 


C .  Output 


1.  COMMON 
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RDCCM 


2.  Calling  sequence 


D.  Error  /action  messages 


1.  Off-Line  Comment: 

"TAPE  ON  LOG  7  NOT  CORRECT.  I.D.  IS _ " 

2.  On-Line  Comment: 

"TAPE  ON  LOG  7  NOT  CORRECT.  I.D.  IS _  " 

"TYPE  — GO  TO  RETRY  TAPE,  -  STOP  FOR  NEXT  CASE" 

3.  Action: 

Subroutine  ERROR 


SUBROUTINES  USED 

A.  Library 

GLQ5P 
MX  CRD 

stCpgc 

B.  Program 


ERRCR 

FLEX 

REWT 


Error  subroutine 
Flexowriter  print  routine 
Rewinds  observation  tape 


4-264 


REFRAC 


REFRAC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
REFRAC 

B.  Segment 
ESPQ5D 

C.  Called  by  subroutine 


SWTSN 


FUNCTION 

This  subroutine  computes  the  tropospheric  refraction  correction  for 
a  given  elevation  angle.  The  slant  range  is  given  to  the  subroutine  for  the 
purpose  of  computing  the  altitude  of  the  object  at  the  time  the  measurement 
was  taken.  If  the  slant  range  is  not  available,  the  altitude  is  taken  to  be 
70  kilometers  . 

USAGE 


A.  Calling  sequence 

Call  REFRAC  (R,  XNBAR,  EZ) 


B.  Input 


1.  C0MM0N 


CKMER 

CP 


km/  e  .  r  , 

4x4  array  of  polynomial  coefficients 
for  refraction 


2.  Calling  sequence 


R 


Slant  range  (measured),  km 


XNBAR 


EZ 


Nq  mean  surface  value  of  refractivity 

o 

Measured  elevation  (mrad) 


C .  Output 


1.  C0MM0N 


2.  Calling  sequence 


EZ 


Measured  elevation  with  refraction  correction 
applied  (mrad) 
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REFRAC  REFRAC 

D.  Error/action  messages 


SUBROUTINES  USED 


A.  Library 

C0SF 

SINF 

SQRTF 

B.  Program 

ATNQF  Arc  tangent  routine 

EQUATIONS 

99  Card 

99  Car 

Item 

Item 

Pb  =  o. 11691966 

608 

Qb  =  1.0 

612 

0 

O 

P,  =  0.  28291024  x  10"1 
b , 

607 

Q,  =  0. 53601747 
b , 

611 

1 

1 

Pu  =  0.49948765x  10"2 

b~ 

606 

Q,  =  0.  62648450  x  10" 

1 

610 

2 

2 

P^  =  -0.  1 3841039  x  10'5 
b3 

605 

Q,  =  0. 47029968  x  10" 
b3 

2 

609 

P  =  -0.  17938996  x  1 02 

616 

Q  =  1.0 

620 

CL 

0 

a 

o 

P  =  -0. 55482671 x 10 

615 

Q  =0.77345268 

619 

al 

al 

P  =  0.  19185634  x  10-2 

614 

Q  =  0.  22469128  x  10" 

1 

618 

a2 

a2 

P  =  0.  82688025x  10'4 

613 

Q  =  0.  24331667  x  10" 

2 

617 

a3 

a3 
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REFRAC 


i  P  Ei 

•  n  b .  o 

1  =  0  i 

3 

Z 

i=0 

P  E  1 

a.  o 

1  p 

=  EZ 

3 

v-  ~  _  1 

/  Qu  E 

b.  o 
i=0  i 

a  "  3 

Z 

i=0 

±—t 

o 

Q  E  1 
a.  o 

l 

b  N  +  a 
s 

N  = 
s 

XNBAR 

i  +  — 

R 

R  = 
e 

radius  of  the  earth, 

km 

e 


=  1  +  N  x  10 


tan  E. 
h 


1 


€  =  t 


-1 

tan 


n  -  cos  t  -  sin  t  tan  E 
s_ o 

tan  E  +  sin  t  -  cos  t  tan 
n 


E 

o 


where  h,  altitude,  is  computed  from  radar  data,  r  and  E^  (range  and 
elevation). 


h 


+  ZR  r 

e 


sin  E 

o 


-  R 

e 


R  =  equatorial  radius  of  Earth,  km 

r  =  slant  range,  km  (if  slant  range  is  not  available, 
use  h  =  70  kilometers) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
REJECT 

B.  Segment 
ESP^DDC 

C.  Called  by  subroutines 


RADR 

INTEG 


FUNCTION 

Function  is  to  monitor  the  acceptance  or  rejection  of  an  observation 
in  the  differential  correction  process.  An  observation  may  be  rejected  if 
its  residual  fails  to  pass  either  a  gross  outlier  test  or  fails  to  pass  a 
K*RMS  test  where  the  RMS  is  computed  by  observation  type  using  all  the 
observations  of  the  preceding  iteration  which  have  passed  the  gross  outlier 
test  (see  Figure  4-17).  Only  the  gross  outlier  test  is  made  on  the  first 
iteration.  The  subroutine  has  a  second  entry  which  when  executed  com¬ 
putes  the  RMS  by  observation  type  to  be  used  on  the  next  iteration. 


USAGE 


A.  Calling  sequence 

Call  REJECT  (II,  IZ,  13) 


B .  Input 


1.  C0MM0N 


PKSUBS  G^  by  sensor  for  gross  outlier  test 


NITCT 


Iteration  counter 


PSIG 


Array  containing  unweighted  residuals  (AR,  AA , 
AE,  AR,  AHA,  ADEC) 


°~RDT’  °HA’ 


PRESD 


PCSE 


cos  E 


PUI 


Array  containing  the  three  dimensional  vector 

U  =  (Uj,  U^,  u3) 


CKRMS 


RMS  multiplier  for  the  K*RMS  rejection  cri¬ 
terion  K  is  nominally  set  to  1 .  5 
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2.  Calling  sequence 

11  A  number  1-6  referring  to  the  type  of  observation 
we  are  testing 

11=1  range 

2  azimuth 

3  elevation 

4  range  rate 

5  hour  angle 

6  declination 

13  =1  make  residual  tests 

=  2  compute  RMS  by  observation  type  for  next 
observation 

C .  Output 

1.  COMMON 

PDELFG  Array  containing  in  each  cell  either 

1)  word  of  blanks  indicating  the  observation 
has  been  accepted 

2)  word  containing  GAAAAAAA  indicating  the 
observation  residual  has  failed  the  gross 
outlier  test 

3)  word  containing  KAAAAAAA  indicating  the 
observation  residual  has  failed  the 
K*RMS  test 

4)  word  containing  *AAAAAAA  indicating  the 
observation  was  deleted  by  an  input 
DELET  card 

2.  Calling  sequence 

12  =0  residual  passed  all  tests  and  has  been  accepted 
=  1  residual  failed  one  of  the  tests  and  was  rejected 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SQRTF 


4-270 


REJECT 


REJECT 


B.  Program 

PASTQR  Routine  to  set  PDELFG  array 
METHOD/ EQUATIONS 


Compute  the  following  for  the  II  type  observation: 

11  =  1  AR  =  AR 

=  2  AA  =  (cos  E)  AA 

=  3  AE  =  AE 

=  4  AR  =  AR 

=  5  AHa  =  (cos  6)  AHa 
=  6  ADec  =  ADec 

For  the  II  type  observation  the  following  flow  diagram  gives  the 
sequence  in  which  the  rejection  testing  is  carried  on. 
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REJECT 


G$  BY  SENSOR 

cr$R  BY  SENSOR  AND  TYPE 


RMSR 


(  AR;)\2 
^SR  I 

(na  +  nrk)r 


Figure  4-17.  REJECT  Flow  Diagram 
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REWT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
REWT 

B.  Segment 
ESPQiD 

C.  Called  by  subroutines 

DPR0S 

DRIVER 

L$DqiBS 

RDC0M 

WRTC0M 

FUNCTION 

Function  is  to  rewind  the  observation  tape. 
USAGE 

A.  Calling  sequence 
Call  REWT 

B .  Input 

1.  COMMON 

MT  Observation  tape  number 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
MX0RD 

B.  Program 
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REWT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
REWT 

B.  Segment 

1.  ESP0DDC 

2.  ESP0DEPH 

C.  Called  by  subroutines 

INTEG 

FIT 

WRTCQ5M 

FUNCTION 


Function  is  to  rewind  the  program  work  tape  (MT). 
USAGE 

A.  Calling  sequence 
Call  REWT 

B .  Input 

MT  Observation  tape  number 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
MX0RD 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
RMAX 

B.  Segment 
ESP^DDC 

C.  Called  by  subroutines 
PPRINT 

FUNCTION 

This  routine  compares  the  residual  output  quantities,  in  temporary 
storage,  with  a  table  of  maximum  values.  If  a  value  exceeds  the  maximum, 
it  is  replaced  by  the  maximum. 

USAGE 

A.  Calling  sequence 
Call  RMAX 

B.  Input 


COMMON  (Table  4-1) 

TEMP(l) 

A  range 

(2) 

Aazimuth  or  Aright  ascension 

(3) 

Aelevation  or  A  declination 

(4) 

A  range  rate 

(5) 

Au  ,  As  ,  A  station  latitude 

(6) 

Av  ,  At  ,  or  A  station  longitude 

(7) 

Aw  ,  Aw  ,  or  A  station  height 

(8) 

VM  =  Au)"  +  (Av)^  +  (Aw)^ 

(9) 

AT  =  in -plane  time  differential 

(10) 

U  =  argument  of  latitude 

(11) 

BETA  =  out-of-plane  angle 

2.  Calling  sequence 
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RMAX 


C .  Output 

1 .  C0MM0N 

TEMP  The  output,  in  TEMP,  is  in  the  same  format 

as  the  input,  but  if  a  value  exceeds  the  maxi¬ 
mum,  it  is  replaced  by  the  maximum. 

2.  Calling  sequence 


D.  Err  or  /action  mes  sages 


SUBROUTINES  USED 


A. 

Library 

B. 

Program 

Table 

4-1.  Comparison  Values 

Temp 

Compared  With 

Maximum  For 

(i) 

999. 99 

A  Range 

(2) 

99.  99 

Aazimuth  or  Aright  ascension 

(3) 

99.  99 

A  elevation  or  A  declination 

(4) 

9.  999 

A  range  rate 

(5) 

999. 99 

Au  ,  As  ,  or  A  station  latitude 

(6) 

999. 99 

Av  ,  At  ,  or  A  station  longitude 

(7) 

999. 99 

Aw  ,  Aw  ,  or  A  station  height 

(8) 

999. 99 

VM 

(9) 

99. 999 

AT 

(10) 

999. 99 

U 

(ID 

9.  999 

BETA 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
R0TRU 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutine 
INTPL 

FUNCTION 


This  routine  rotates  a  set  of  vectors  from  a  coordinate  system  refer¬ 
enced  to  the  mean  equator  and  equinox  of  19^0.  0  to  one  referenced  to  the 
true  equator  and  equinox  of  date. 

USAGE 

A.  Calling  sequence 

Call  R0TRU  (C00RD,  I,  NB0D,  DATE,  ND0) 

B .  Input 

1.  C0MM0N 


2.  Calling  sequence 

C(?Q$RD  Address  of  the  array  containing  the  vectors  to 
be  rotated 

I  Location  in  CO0RD  for  the  X  component  of  the 

first  vector 

NB0D  Total  number  of  consecutive  vectors  to  be 

rotated 


DATE  Julian  date 

ND0  If  0,  a  test  is  made  to  see  if  the  rotation  matrices 

need  be  recomputed.  If  the  current  date  is 
within  .  1  days  of  the  previous  date,  the  matrix 
is  not  updated.  If  ND0  /  0,  the  matrices  are  re¬ 
computed  at  each  entrance. 
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RQTRU 


C.  Output 

1.  CQMMQN 

2.  Calling  sequence 

CQQRD  The  original  vectors  now  referenced  to  the  true 
equator  and  equinox  of  date 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 

CQS 

SIN 

B.  Program 
MULT 

EQUATIONS 


For  a  given  Julian  date  rotational  matrices  (a)  and  (a1)  are  computed 


T  _  T 

and  the  rotation  (a1)  (a)  x  =  x'  is  performed. 


f 


(a1)  = 


-l \)  COS  € 


\\)  COS  €  1 

1 


sin  c  c  “  c  * 


i)j  sin 


€  -  € 


in  €^\ 


1  J 


€  1 ,  ijj,  c  are  computed  as  follows: 


Set  D  =  Julian  date  -  2433282.  5 
T  =  d/2433282. 5 
ijj  =  di};  +  A  ij; 
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The  coefficients  a.,  b.,  c.,  e.  used  below  are  listed  in  Table  4-II. 
1111 

d \\i  -  e  ^  sin  2  T  +  e^  sin  «r  -  F  1 )  +  e ^  sin  2  (<T  -  T')  +  sin  (2  ((*  -  £2  ) 

+  e,-  sin  (3<T -  r>)  +  e^  sin  ( (T  +  r>  -  2)  +  e^  sin  (<T  +  r-) 

+  eg  sin  2  ( (f*  -  L)  +  sin  {(^  -  r '£2 )  +  e^Q  sin  ((f*  -  T'  -  £2) 

+  en  sin  (3  (T  -  2L  +  T')  +  e12  sin  (3  (f  -  T'  -  £2  ) 

Ail/  =  -sin  £2  (c.  +  cnT)  +  c0  sin  2£2  +  c  .  sin  2L  +  cc  sin  (L  -  T) 

1  Z  3  4  d 

+  c^  sin  (3L  -  r)  +  c^  sin  (L  +  T)  +  Cg  sin  (2L  -  £2)  +  c^  sin  (ZT1  -  £2 ) 
+  Cjq  sin  2  (L  -  r  ') 

€  1  =  7  +  A  €  +dc 

7  =  P^(T),  where  is  a  cubic  in.  T  (see  Table  4  -  III) 

de  =  b^  cos  2  (if*  +  b^  cos  (2<T  -  £2)  +  b3  cos  (3  <?  -  r  ’ )  +  b^  cos  «r  +  r*> 

+  b^  cos  ( (p*  -  r 1  +  £2 )  +  b6  COS  ((T  -  r*  -  £2 )  +  bg  COS  (3  (T  -  2L  +  r1) 
+  bg  COS  (3(T  -  r*  -£2) 

Ae  =  a,  cos  £2  +  a^  cos  2£2  +  a_  cos  Z  +  a  .  cos  (3L  -  T)  +  ac  cos  (L  4-  F) 

1  2  3  4  d 

+  a^  cos  (2L  -  £2)  +  a^  cos  (ZT  ’  -  £2) 
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R0TRU 


Q  =  P2(T)  -  9.24220286  x  10-4  D  ^ 

T  =  Pg(T)  +  0.229971498  D 

r*  =  P3(T)  +  1.  94436796  x  10"3  D  \ 

L  =  P4(T)  +  1.72027908  x  10"2  D 

T  =  P,(T)  +  8.21498543  x  10~7  D 

5  J 


See  Table  4  -  III 
for  polynomials 


-sin  t,  sin  z 
o 

+  COS  cos  z  cos  0 


sin  L  cos  z 
o 

-f  cos  i  sin  z  cos  0 
*o 


cos  r  sin  0 
o 


(a) 


-cos  l 

■o 

sm  z 

COS  L  COS  Z 

*o 

-sm  r  sm 
o 

-sin 

cos  z  cos  0 

-  sin  11  sin  z  cos  0 
o 

-cos  z  sin  0 


-sin  z  sin  0 


cos  0 


Co  *  P6(T> 

z  =  P7(T) 


e  =  p8(t)  J 


See  Table  4  -  III  for  polynomLals 
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R$TRU 


Table  4-II.  List  of 


Coefficients  a.,  b.,  c.,  and  e. 

111  1 


a  = 


a_,  =  -0.4363323  x  10 


a3  =  0. 26713223  x  10 
a4  =  0.  106658809  x  10 


ar  =  -0.  436332308  x  10 


a,  =  -0.  33936879  x  10 

o 

a„  =  -0.  145438284  x  10 


C]l  =  0.835936092  x  10 
c2  =  0.824179359  x  10 
c 3  =  0.  101325087  x  10 


c  .  = 


c c  =  0. 610865228  x  10 

D 


C,  = 


c 7  =  0.  101810284  X  10 
cQ  =  0. 581718229  x  10 

o 

c9  =  0.242391318  x  10 
c1Q  =  0. 193923526  x  10 


:  10"4 

bl 

io"6 

b2 

io‘5 

b3 

:  10"6 

b4 

x  10'7 

b5 

;  10  ~7 

b6 

x  10"7 

b7 

:  10 '4 

b8 

:  IO'7 

el 

:  10'5 

e2 

x  10  "  ^ 

e3 

:  10"6 

e4 

x  10"6 

e  5 

:  10"6 

e6 

:  10  7 

e7 

:  IO'7 

e8 

:  10"7 

e9 

e10 

ell 

e  12 

0. 290876567  x  10 
0.290876567  x  10 


0. 290876567  x  10 


0.  242391318  x  10 


r6 

,-7 

,-7 

o-7 

o-7 

r7 

i-8 

,-8 

o-6 

i-6 

r7 

r6 

o-6 

i-7 

r7 

-7 


-7 


-1 


-7 


-0.  193906069  x  10 


-7 
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RPRESS 


RPRESS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RPRESS 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutines 
DAUX 

FUNCTION 

Function  is  to  compute  the  perturbative  acceleration  on  a  spacecraft 
due  to  solar  radiation  pressure. 

USAGE 

A.  Calling  sequence 
Call  RPRESS 

B.  Input 

1.  C0MM0N 


CGMR 


Array  containing  ratios  of  moon,  sun,  Venus, 
Mars,  Saturn  and  Jupiter  GM  to  that  of  the 
Earth 


TLIST 


Numerical  integration  working  storage 


DBASE 


Days  from  1950.0  to  epoch 


CMU 


GM  of  the  Earth 


CERAU 


Earth  radii  per  astronomical  unit,  conversion 
factor 


TALFA 


A  constant  used  in  the  simulation  of  radiation 
pressure 


CLIGHT 


The  speed  of  light 


2.  Calling  sequence 
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RPRESS 


RPRESS 


C .  Output 

1.  COMMON 

TRPRES  Three -cell  array  containing  the  acceleration 

due  to  radiation  pressure  in  the  x,  y,  and 
z  directions 

2.  Calling  sequence 

D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 

DOT 

INTPL 

MAGN 

EQUATIONS 

A.  Read  the  ephemeris  tape  for  the  position  of  the  sun,  and  compute 
the  velocity  of  the  sun  analytically: 


R  =  1  a.  u. 
au 


p  =  sum  of  Earth  GM  and  Sun  GM 


k  ' 
s 

0 

X 

s 

y  1 

7  s 

= 

-sin  (23. 5°) 

X 

ys 

z  1 
s 

cos  (23. 5°) 

_  -> 

z 

s  _ 
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RPRESS 


RPRESS 


V 

s  •  i 
x  =  —  •  x  ' 
s  R  s 


V 

=  IT  -  ys 


V 

s  •  t 

Z  =  ~D~~  *  Z 

s  R  s 


B.  Compute  the  position  and  velocity  of  the  vehicle  referenced  to 
the  sun. 


x  =  x  -  x 
vs  s 


X  =  x  -  X 
vs  s 


y  =  y  -  y 

7  vs  s 


y  =  y  -  y 

7  vs  7  7  s 


z  =  z  -  z 
vs  s 


z  =  z  -  z 
vs  s 


C.  Acceleration  due  to  solar  radiation  pressure: 


u  =  (x  •  x  )  if  x  =  — 
vs  vs  VS  ! 


vs 


R 


vs 


vs 
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RPRESS 


RPRESS 


where 


C  =  speed  of  light 


R 


vs 


■(’ 


2  .  2  ,  2 
x  +  y  +  z 


VS  '  vs 


vs 


) 


1/2 


S  2  A 

a  =  — rr  R  —  from  TPRLM  subroutine 

c2 
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SDELET 


SDEEET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SDELET 

B.  Segment 
ESPOD 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

The  function  is  to  move  observation  deletion  numbers  from  DATA 
storage  starting  at  DATA  (557)  to  IVSTR  variable  storage  starting  at 
IVSTR  (NIDEED). 

USAGE 

A.  Calling  sequence 
Call  SDEEET 

B.  Input 

1.  COMMON 

DATA  Input  storage 

NIDENT  Number  of  entries  in  the  NIDLED  list 

NIDLED  Identifies  the  starting  location  of  where  the 

observation  deletion  table  begins 

2.  Calling  sequence 

C.  Output 

1.  common 

IVSTR  (NIDEED)  Array  containing  pairs  of  residual 

numbers  for  deletion  purposes 

2.  Calling  sequence 

D.  Error/action  messages 
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SDELET 


SDEEET 


SUBROUTINES  USED 


A. 

Library 

B. 

Program 
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SELECT 


SELECT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SELECT 

B.  Segment 

ESPODDC 

ESPODEPH 

C.  Called  by  subroutines 

INTEG  (ESPODDC) 

POSTPR  (ESPODEPH) 

FUNCTION 

This  subroutine  selects  the  next  time  whether  it  be  an  observation 
time  (ESP0DDC)  or  a  straight  prediction  time  (ESP0DEPH)  to  which  the 
numerical  integration  is  to  be  carried. 

USAGE 

A.  Calling  sequence 
Call  SELECT 

B .  Input 

1  .  C0MM0N 

IPFRST 
PUBS 
T EPOCH 
T  LIST 
T  MINUS 
TUBSEF 

2.  Calling  sequence 

C.  Output 
1  .  COMMON 

TG  Time,  minutes  from  0  of  epoch  day,  to 

integrate 

2.  Calling  sequence 

D.  Error/action  messages 


0  to  indicate  first  time  in  RADR 

Sensor  number,  time,  R,  A,  E,  R,  a,  6  table 

Epoch  time,  minutes  from  midnight 

Numerical  integration  working  storage 

Flag  to  indicate  integration  times  before  epoch 

E($F  flag  for  reading  observations 
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SELECT 


SELECT 


SUBROUTINES  USED 

A.  Library 

B.  Program 

SETIC 

UBSGET 

METHOD 

See  Figure  4-18. 


Initialize  the  integration  list 

Gets  next  observation  time  from  variable 

storage 
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SELECT 


SELECT 


H  =  EXIT 


Figure  4-  18.  Differential  Corrector 
Flow  Diagram 


4-293 


SENIN 


SENIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SENIN 

B.  Segment 
ESP$D 

C.  Called  by  subroutine 
LQiDSEN 

FUNCTION 

This  subroutine  inputs  sensor  location  cards,  computes  number  of 
sensors  and  sets  up  master  sensor  table  with  correct  units  and  values  . 

USAGE 

A.  Calling  sequence 
Call  SENIN 

B .  Input 

1.  C0MM0N 

CAE 
CBE 
CDEG 
CMTER 
DTMP 

NDPR 

NPR 
NSTAT 

NUBS 

TALFAG 
TEMP(l) 

TEMP(  2) 

TEMPI  3) 

TEMPI  4) 


a 

e 

be 

Degrees/ radian 
Meters  /  e .  r  . 

Saves  station  number  and  code  word  for  those 
stations  with  code  word  /  0 

Number  of  all  differential  +  initial  parameters 
to  solve  for  (Category  1) 

Number  of  all  parameters  to  solve  for 

Identifies  the  starting  location  of  the  master 
sensor  table 

Identifies  the  starting  location  of  the  observation 
table 

a  for  midnight  day  of  epoch 
Sensor  number  (BCD) 

Latitude,  degrees 
Longitude,  degrees 
Altitude,  meters 
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SENIN 


SENIN 


TEMP(6fl  _ 

TEMP(7 )J  Sensor  name 

TEMP(9)  Classified  or  unclassified  flag 


Z.  Calling  sequence 


Output 

1 .  CQSMM0N 

VSTR(NSTAT) 

Sensor  number 

(NSTAT  +  1) 

Latitude,  radians 

(NSTAT+2) 

Longitude,  radians 

(NSTAT+3) 

Altitude,  e.r. 

(NSTAT+4) 

COS  <j)* 

(NSTAT+5) 

Sin  <J>* 

(NSTAT+6) 

ago  +  k,  radians 

(NSTAT+7) 

W^,  e.r. 

(NSTAT+8) 

W3S,  e.r. 

(NSTAT+9) 

Code  word 

(NSTAT+10) 

0.0 

(NSTAT  +  1  1) 

0.0 

(NSTAT  +  1  2) 

0.0 

(NSTAT  +  1  3) 

0.0 

(NSTAT  +  14) 

0.0 

Z.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 

C0  SF 

SINF 

SQRTF 

B.  Program 

PIMQ5D  Takes  principal  value  of  angle  between 

0  and  Ztt 
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SENIN 


SENIN 


EQUATIONS 


where 


agc  +  X 


A 

s 

B 


s 


a 

e 


b 

e 


Wj  =  (a^A^  +  h)  cos  <j>* 


W0  =  (b  A  +  h)  sin  d>* 
3  e  s  ^ 


Z  Z  Z 

(cos  <{>*  +  b^  sin  <(>*) 


Z  12 

!  sin  -f — --  cos  <{>*] 


*1/2 

-1/2 


v  e 

found  in  C0MM0N  in  CAE 
found  in  C0MM0N  in  CBE 
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SENRD 


SENRD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SENRD 


B. 


Segment 

ESPOD 


C.  Called  by  subroutine 
L0DSEN 


FUNCTION 


Function  is  to  read  one  sensor  card  in  SPADATS  format,  from  the 
input  tape . 

USAGE 

A.  Calling  sequence 
Call  SENRD  (SE0F) 

B.  Input 

1  .  COMMON 


2.  Calling  sequence 

SEOF  =  -1.  (if  more  sensors) 

SEOF  ~  1.  (ENDSN  card  detected) 


C .  Output 

1  .  COMMON 

TEMP(l) 
TEMP(  2) 
TEMPI  3) 

T  EMP(4) 
TEMPI  6)  'i 
TEMPI  7)/ 
TEMPI  9) 


Sensor  number 

<}>  (latitude,  degrees) 

\  (longitude,  degrees) 
h  (altitude,  meters) 

Sensor  name 

Classified  or  unclassified  flag 


2.  Calling  sequence 


D.  Error/action  messages 

No  message  but  a  jump  to  "ERROR"  if  the  "A"  register  is  zero 
when  returning  from  XSRCH 
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SENRD 


SENRD 


SUBROUTINES  USED 
A.  Library 


B.  Program 

ERRQ5R  Error  routine 

IDSUB  Strips  blanks  from  I.  D. 

READPR.RDQ5NE  Reads  preliminary  data 
XSRCH  Card  image  scan  and  convert 
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SENSCH 


SENSCH 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SENSCH 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
L0DSEN 

FUNCTION 

This  subroutines  searches  the  required  sensor  table,  located  at 
DBUFS(129)  through  DBUFS(256),  for  a  match  with  sensor  card  I.D.  If 
a  match  is  found,  DBUFS(I)  is  set  =  0.  If  no  match  is  found  then  SNAME 
is  set  =  0 . 

USAGE 

A.  Calling  sequence 
Call  SENSCH(SNAME) 

B .  Input 

1  .  COMMON 

DBUFS  Temporary  buffer  storage 

2.  Calling  sequence 

SNAME  Flag  for  sensor  card  I.D. 

C .  Output 

1.  C0WLM0N 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SETCON 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETCON 

B.  Segment 
ESPOD 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 


This  subroutine  stores  values  from  the  BZ  master  assign  deck 
constants  into  the  ESPOD  constants  pool.  It  also  computes  several  other 
constants  used  by  ESPOD  whose  values  are  dependent  on  the  constants 
picked  out  of  the  BZ  constants  pool. 

USAGE 

A.  Calling  sequence 
Call  SETCON 

B.  Input 

1  .  COMMON 

Z.  Calling  sequence 


C .  Output 


1  .  COMMON 

CBE 

CDTER 

CELLIP 

CFTER 

CKMER 

C  LIGHT 

CMTER 

CNMER 

CVTERM 

CWE 

CGMR(Z) 


be 

km/ e.  r. 

Ellipticity  of  the  Earth 
ft/  e .  r . 
km/e .  r. 

Speed  of  light 
Meters / e .  r . 

Nautical  miles /e.r. 

Convert  e.r./ min  to  km/ sec 
Earth's  rotational  rate 
Earth  to  moon  mass  ratio 


Z.  Calling  sequence 
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SETC(?N 


SETC<$N 


D.  Error/action 


SUBROUTINES  USED 
A.  Library 


B.  Program 


messages 
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SETIC 


SETIC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETIC 

B.  Segment 
ESPODDC 

C.  Called  by  subroutines 

INTEG  (ESPODDC) 

SELECT  (ESPODDC) 

FUNCTION 

The  function  is  to  initialize  the  integration  list  and  other  parameters 
which  must  be  re- initialized  each  time  the  integration  is  re-started. 


USAGE 


A.  Calling  sequence 
Call  SETIC 


B.  Input 

1. 


COMMON 

TEPOCH 

DCFLG 

TSTEP 

TICRT 


Minutes  from  midnight  to  epoch 

Flags  corresponding  to  columns  41-50  of  the 
JDC  card 

Starting  step  size  for  the  numerical  integration 
in  minutes 

x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  in 
earth  radii  and  earth  radii  per  minute 


NDPR  Total  number  of  Category  l  variables 

Calling  sequence 


C.  Output 


1.  COMMON 
TMINUS 

PMAT  1 
VMAT  f 


Flag  indicating  backward  integration 

Arrays  used  in  variational  equation  formu¬ 
lation,  initialized  at  0 


TG 


Time  to  integrate  to 
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SETIC 


SETIC 


Z. 


TUBSEF 

PLSTSN 

FLVE 

TCRASH 

IPFRST 

TLIST 

DFL 


Calling  s 


End  of  file  flag  for  observation  tape 
"First  time  through"  flag  for  RADR  subroutine 
Flag  for  variational  equations  computation 
Impact  flag 

T 

Flag  to  indicate  presence  of  an  a  priori  A  A 

Numerical  integration  working  storage 

Flag  for  DYNAT  subroutine  indicating  first 
entrance 

equence 


D.  Error/action  messages 

SUBROUTINES  USED 
A.  Library 

B  Program 

DAUX 

VPERT 

EQUATIONS 

None 
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SETIC 


SETIC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETIC 

B.  Segment 
ESPQDEPH 

C.  Called  by  subroutine 

PQSTPR  (ESPODEPH) 

SELECT  (ESPODEPH) 

FUNCTION 

The  function  is  to  initialize  the  integration  list  and  other  parameters 
which  must  be  re-initialized  each  time  the  integration  is  re-started. 

USAGE 

A.  Calling  sequence 
Call  SETIC 

B.  Input 


1. 

COMMON 

TEPOCH 

Minutes  from  midnight  to  epoch 

TSTEP 

Starting  step  size  for  the  numerical 
integration  in  minutes 

TICRT 

x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  in 
Earth  radii  and  Earth  radii  per  minute 

2. 

Calling  sequence 

Output 

i. 

COMMON 

TMINUS 

Flag  indicating  backward  integration 

PMAT  \ 
VMAT  j 

Arrays  used  in  variational  equation 
formulation,  initialized  at  0 

TG 

Time  to  integrate  to 

FLVE 

Flag  for  variational  equations  computation 

T  CRASH 

Impact  flag 
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SETIC 


SETIC 


TLIST  Numerical  integration  working  storage 

DFL  Flag  for  DYNAT  subroutine  indicating  first 

entrance 

2.  Calling  sequence 
D.  Er  ror/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

DAUX 

VPERT 

EQUATIONS 

None 
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SETTAB 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETTAB 

B.  Segment 
ESP(?D 

C.  Called  by  subroutine 
Driver 

FUNCTION 

Function  is  to  set  up  the  IVSTR(NIDP),  IVSTR(NPRCD) ,  VSTR(NPBIS), 
VSTR(NSCALE) ,  VSTR(NBDNS) ,  and  DTMP  tables. 

USAGE 

A.  Calling  sequence 
Call  SETTAB 

B.  Input 


1.  COMMON 

CBOUND 

Nominal  set  of  bounds 

CDEG 

Degree/ radian 

CKMER 

km/  e .  r . 

CL.DSTR 

Cold-start,  non- cold- start  flag 

CMTER 

Meter  / e.  r. 

DATA 

Input  storage 

FGBNDS 

Flag  to  indicate  BNDS  cards  read 

FGCAT1 

Flag  to  indicate  Category  1  card  read 

FGCAT2 

Flag  to  indicate  Category  2  card  read 

NBDNS 

Starting  location  for  the  bounds  used  by  LEGS 

NDPR 

Number  of  all  differential  +  initial  parameters 
to  solve  for  (Category  1) 

NIDP 

Identifier  for  table  indicating  Category  1  type 
variables  to  be  solved  for 
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SETTAB 


NPBIS 

Identifies  table  for  current  estimates  of 
Category  2  variables 

NPR 

Number  of  all  parameters  to  solve  for 

NPRCD 

Identifies  table  for  definition  of  Category  2 
variables  to  be  solved  for 

NSCALE 

Identifies  the  starting  location  of  the  list  of 
conversion  factors  which  convert  all  solution 
vectors  and  associated  matrices  from  machine 
units  to  output  units 

2. 

Calling  sequence 

C.  Output 

1. 

COMMON 

DTMP 

Saves  station  number  and  code  word  for  those 
stations  with  code  word  0 

❖ 

IVSTR 

Fixed  point  variable  storage 

* 

VSTR 

Floating  point  variable  storage 

c. 

Error/action  messages 

SUBROUTINES  USED 

A. 

Library 

B. 

Program 

* 

See  section  on  variable  storage  usage. 
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SKIPT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SKIPT 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutines 
UBSGET 

FUNCTION 

This  subroutine  skips  COMMON  portion  of  the  observation  tape  after 
each  iteration. 

USAGE 

A.  Calling  sequence 
Call  SKIPT 

B.  Input 

1.  COMMON 

DBUFS  Auxiliary  buffer  storage 

MT  Observation  tape  number 

Z.  Calling  sequence 

C.  Output 

l.  common 

Z.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
MXORD 

B.  Program 
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SNQMIC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SNQMIC 

B.  Segment 
ESPQD 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

The  function  is  to  move  input  initial  conditions  from  DATA(l-lZ)  to 
either  TN0MX,  TNQMP  or  TMNEE  depending  on  whether  or  not 
DTYPE  =  1.,  2.,  3. ,  or  4. 

USAGE 

A.  Calling  sequence 
Call  SNQMIC 

B.  Input 

1.  CQMMQN 

DATA  Input  storage 

DTYPE  Initial  conditions  type 

2.  Calling  sequence 

C.  Output 

1.  CQMMQN 

TMNEL  Initial  seven-card  element  set 

TN(?MP  Initial  spherical  coordinates 

TN(?MX  Initial  Cartesian  coordinates 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SNSGET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SNSGET 

B.  Segment 
ESP  OD 

C.  Called  by  subroutine 
LQDSEN 


FUNCTION 

This  subroutine  loads  sensor  information  from  S  file  of  SEAI  tape. 
USAGE 


A.  Calling  sequence 

Call  SNSGET  (ID,  FLAG) 

B.  Input 


1.  COMMON 

CDEG  Degrees  /  radian 

CMTER  Meters/e. r. 

DBUFS  Auxiliary  buffer  storage 

2.  Calling  sequence 

ID  Sensor  number  to  be  found 

FLAG  Sensor  flag 

FLAG  =  -1.,  sensor  not  found 
FLAG  =  1.,  sensor  found 


C.  Output 


1. 


COMMON 


Sensor  number 

<j>  (latitude,  degrees) 

\  (longitude,  degrees) 
h  (altitude,  meters) 

Sensor  number 

Classified  or  unclassified  flag 


2.  Calling  sequence 


D.  Error/action  messages 
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SNSGET 


SNSGET 


1.  On-line  comment 

"TAPE  04  BAD  -  MOUNT  BACKUP." 

"TYPE  -  GO  RETRY  TAPE,  STQ)P  NEXT  CASE." 

2.  Action 
Subroutine  error 


SUBROUTINES  USED 

A.  Library 

ST(?PGg> 

SYS 

SYSIQ> 

SYSNQ> 

TAPCK 

TAPE0UT 

B.  Program 

ERRQJR  Error  subroutine 

FLEX  Flexowriter  print  routine 

IDSUB  Strip  blanks  from  ID 
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SSTB 


SSTB 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SSTB 

B.  Segment 
ESP^DDC 

C.  Called  by  subroutines 
RADR 

FUNCTION 

This  subroutine  accumulates  sum,  sum  of  squares,  and  number  of 
residuals  by  sensor  and  data  type.  The  only  residuals  involved  are  those 
which  have  satisfied  both  tests  made  in  REJECT. 

USAGE 

A.  Calling  sequence 
Call  SSTB 

B.  Input 

1.  C0MM0N 
IRCNT 

NSSTB 

PDELFG 
PRESD 
PUBS 
TEMP 
VSTR 
CDEG 
CKMER 

2.  Calling  sequence 


Cells  for  partials  print 

Identifies  the  starting  location  where  station 
information  concerning  computed  sigmas  and 
means  of  residuals  are  stored 

Cells  for  partials  print 

Residuals  (AR,  AA,  AE,  AR,  AHA,  ADEC) 

Sensor  number,  time,  R,  A,  E,  R,  a,  6  table 

Temporary  storage 

Floating  point  variable  storage 

Degrees  /  radians 

km/ e.  r. 
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SSTB 


SSTB 


C.  Output 

1.  CQJMM0N 


2.  Calling  Sequence 


D.  Error /action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 


=  sensor  number 


METHOD 

VSTR  (NSSTB+0) 
VSTR  (NSSTB+1) 
VSTR  (NSSTB+2) 
VSTR  (NSSTB+3) 
VSTR  (NSSTB+4) 
VSTR  (NSSTB+5) 
VSTR  (NSSTB+6) 
VSTR  (NSSTB+7) 
VSTR  (NSSTB+8) 
VSTR  (NSSTB+9) 
VSTR  (NSSTB+10) 
VSTR  (NSSTB+11) 
VSTR  (NSSTB+12) 
VSTR  (NSSTB+13) 


=  2  (AR.) 

=  2(AR.)2 

=  NDa*  10000.  +  N  R  where 
lx  K. 

=  2  (AA.) 

=  E(AA.)2 

=  N^1*  10000.  +  N^1 
=  2  (AE.) 

=  s(ae.)2 

=  Njf*  10000.  + 

=  2  (AR.) 

=  E(AR.)2 

=  N^*  10000.  + 

=  (next)  sensor  number 


c 


a  super  =  accepted 
R  super  =  rejected 


etc. 
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STSMAT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
STSMAT 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

The  function  is  to  convert  the  upper  triangular  S  matrix  in  DATA 
(3Z1  -  520)  from  human  units  to  machine  units  and  then  transfer  to  VSTR 
(NATA)  in  the  special  way  described  under  equations. 

USAGE 


A.  Calling  sequence 
Call  STSMAT 

B.  Input 

Input  data 

ESP0DDC  control  flags 

Number  of  all  parameters  to  solve  for 

Identifies  the  starting  location  of  where 
the  triangular  A^A  is  stored 

Identifies  the  starting  location  of  the 
list  of  conversion  factors  which  convert 
all  solution  vectors  and  associated 
matrices  from  machine  units  to  output 
unit  s 

2.  Calling  sequence 


1.  COMMON 

DATA  (321  -520) 

DCFLG 

NPR 

NATA 

NSCALE 


C.  Output 

1.  common 

VSTR  (NATA)  Identifies  the  starting  location  of  where 
the  upper  triangular  S  matrix  is  stored 
in  variable  storage 

2.  Calling  sequence 

D.  Error/action  messages 
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STSMAT 


STSMAT 


SUBROUTINES  USED 
A.  Library 


B.  Program 

HUMAH  Converts  vector  or  matrix  from  machine 

units  to  human  units  or  vice  versa 


EQUATIONS 

I  =  1 
II  =  1 

D0  2  J  =  1 ,  NPR 

JJ  =  NPR  -  J  +  1 
D0  1  K  =  1,  JJ 

KK  =  NATA  +  II  -1 
VSTR  (KK)  =  DATA  (I  +  320) 
II  =  II  +  1 
1=1+1 
II  =  II  +  1 
DCFLG  (2)  =  1 
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SUPMAT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SUPMAT 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
DRIVER 

FUNCTION 

The  function  is  to  move  the  initial  update  matrix  from  temporary 
storage  to  permanent  storage  VSTR  (NRTMP)  and  convert  from  human 
units  to  machine  units. 

USAGE 

A.  Calling  sequence 
Call  SUPMAT 

B.  Input 

1.  C0MM0N 


DATA 


Input  storage 


NPR 


Number  of  all  parameters  to  solve  for 


NRTMP 


Identifies  the  starting  location  of 
temporary  storage  for  special  handling 
of  the  R  matrix 


NSCALE 


Identifies  the  starting  location  of  the  list 
of  conversion  factors  which  convert  all 
solution  vectors  and  associated  matrices 
from  machine  units  to  output  units 


2.  Calling  sequence 


C.  Output 


1.  C0MM0N 

VSTR  (NRTMP)  Identifies  the  starting  location  of  storage 
for  the  initial  update  matrix 


2.  Calling  sequence 


D.  Error/action  messages 
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SUPMAT 


SUPMAT 


SUBROUTINES  USED 

A. 

Library 

B. 

Program 

HUM  AH 

Converts  vector  or  matrix  from  machine  units 

to  human  units  or  vice  versa 
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SWTSN 


SUBROUTINE  IDENTIFICATION 


A.  Title 
SWTSN 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 

L0D0BS 

FUNCTION 


For  a  given  observation  set  this  subroutine  monitors  the  following: 

a)  Observation  weight  assignment 

b)  Refraction  corrections  to  elevation  angles  if  called  for 

c)  Precession  of  optical  data  if  necessary 

d)  Formatting  of  the  observation  set  into  the  format  to  be 
written  on  tape 

e)  Recording  of  the  sensor  number  of  this  observation  set 
to  insure  that  information  regarding  the  position  of  this 
sensor  will  be  included  in  the  master  sensor  table  when 
this  table  is  established. 

USAGE 


A.  Calling  sequence 
Call  SWTSN  (A,  I) 

B.  Input 

1,  COMMON 

CSIG 

CSTYPE 

DBUFS 

TEMP 


Sensor  sigmas 
Sensor  type  for  o"  ,  N  and  N 
Auxiliary  buffer  storage 
Temporary  storage 


2.  Calling  sequence 

A(I)  Starting  location  of  a  ten  word  array 

containing  the  observation  set 

C .  Output 

See  tape  format 
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SWTSN 


SWTSN 


D.  Error/action  messages 

1.  Off-line  comment 

"REQUIRED  SENSORS  TABLE  FULL.  ITEM  NOT 
SAVED  IS_ _ " 

2.  Action 
None 

SUBROUTINES  USED 

A.  Library 

GLQP 
XSRCH 

B.  Program 

CALCSG 
PRECES 
REFRAC 


Compute  (T^,  a from  credance 
Computes  precession  of  optical  data 
Computes  tropospheric  refraction  correction 
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SWTSN 


WORD  NO.  1 
WORD  NO.  2 
WORD  NO.  3 
WORD  NO.  4 
WORD  NO.  5 
WORD  NO.  6 
WORD  NO.  7 
WORD  NO.  8 
WORD  NO.  9 
WORD  NO.  10 


FILE  MAINTENANCE  CONTROL 
EQUIPMENT  TYPE 
STATION  NUMBER 


X 

X 

T 

T 

O 

N 

N 

N 

WORD  NO.  1 


X 

X 

T 

T 

O 

N 

N 

N 

M 

M 

M 

M 

M 

S 

S 

S 

48  BIT  FLOATING  POINT  NO. 

R 

0 

0 

0 

0 

0 

E 

A 

48  BIT  FLOATING  POINT  NO. 

48  BIT  FLOATING  POINT  NO. 

48  BIT  FLOATING  POINT  NO. 

48  BIT  FLOATING  POINT  NO. 

XXX 

MAX  MIN 

INT 

CF 

CL 

0T 

0BS.  N0 

WORD  NO.  2 
WORD  NO.  3 
WORD  NO.  4 

WORD  NO.  5 
WORD  NO.  6 
WORD  NO.  7 
WORD  NO.  8 
WORD  NO.  9 


MESSAGE  AND  SATELLITE  NUMBERS 
TIME  IN  DAYS  SINCE  1950 

R-ASSOCI ATION  INDICATOR  A  -  ACCURACY 
E  -  EQUINOX  0  -  NOT  USED 

ELEV  -  DEC 
AZ  -  RA 
SLANT  RANGE 

RANGE  RATE  OR  MAX  FREQUENCY  SHIFT 
BRIGHTNESS  AT  TIME  OF  OBSERVATION  (BCD) 


XXX 

MAX 

MIN 

INT 

10  BIT  BINARY  INTEGERS 

THIS  WORD  IS  ALL  BLANKS  IF  BRIGHTNESS  IS  NOT  REPORTED 


Figure  4-19  a.  Tape  Format  — 10-Word  Array 
Entering  SWTSN 
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SWTSN 


SWTSN 


WORD  NO.  10 

| -  CF  =  MAXIMUM  FREQUENCY  SHIFT  INDICATOR 

I -  CL  =  CLASSIFICATION  A  =  UNCLASSIFIED 

1  =  CLASSIFIED 

| - 0T  =  OBSERVATION  TYPE 

O  =  RANGE  RATE  ONLY 
1  =  AZIMUTH,  ELEVATION 
2=  AZIMUTH,  ELEVATION,  RANGE 
3  =  AZIMUTH,  ELEVATION,  RANGE,  RANGERATE 
5  =  RT.  ASCENSION  AND  DECLINATION 


BCD 


Cf|cl|0t|  •  0BS  N0* 


Figure  4-19  b.  Tape  Format  — 10-Word  Array- 
Entering  SWTSN  (Continued) 
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SWTSN 


SWTSN 


WORD  NO.  1 

WORD  NO.  2 
WORD  NO.  3 
WORD  NO.  4 
WORD  NO.  5 
WORD  NO.  6 
WORD  NO.  7 
WORD  NO.  8 
WORD  NO.  9 
WORD  NO.  10 


G  -  BINARY 
s  INTEGER 
AT  B23 

0 

N 

N 

N 

CF 

CL 

i— 

-e- 

E 

T 

S 

S 

S 

48  BIT  FLOATING  POINT  NO. 

R 

0 

0 

0 

0 

0 

E 

A 

48  BIT  FLOATING  POINT  NO. 

48  BIT  FLOATING  POINT  NO. 

48  BIT  FLOATING  POINT  NO. 

48  BIT  FLOATING  POINT  NO. 

< 

b 

LU 

b 

Gs;  SENSOR  NUMBER  (BCD) 

(SEE  INDEX  1  BELOW) 

TIME  -  DAYS  AND  FRACTIONS  OF 
DAYS  FROM  JAN  1,  1950 
(SEE  INDEX  2  BELOW) 

ELEVATION  -  DECLINATION 

AZIMUTH  -  HOUR  ANGLE 

SLANT  RANGE 

RANGE  RATE 

OBSERVATION  WEIGHTS 
ASSIGNED  AT  OBSERVATION 
PROCESSING  TIME 


INDEX  1 


INDEX  2 


CF  =  MAXIMUM  FREQUENCY  SHIFT  INDICATOR 

HACcirirATinM  A  =  UNCLASSIFIED 
CL  =  CLASSIFICATION  ,  =  CLASSIFIED 

4>J  =  OBSERVATION  TYPE 
0  RANGE  RATE  ONLY 

1  AZIMUTH  AND  ELEVATION 

2  AZIMUTH  ELEVATION  AND  RANGE 

3  AZIMUTH,  ELEVATION,  RANGE  AND  RANGE  RATE 
5  RIGHT  ASCENSION  AND  DECLINATI  ON 

ET  =  EQUIPMENT  TYPE 
A  =  ACCURACY 


R  =  ASSOCIATION  INDICATOR 
E  =  EQUINOX 
A  =  ACCURACY 


*THESE  WEIGHTS  ARE  STORED  AS  BINARY  INTEGERS,  TWO  PER  WORD 
(ONE  AT  A  B23  AND  THE  OTHER  AT  A  B47).  THE  TRUE  WEIGHTS  ARE 
THESE  INTEGERS  CONVERTED  TO  FLOATING  POINT  NUMBERS  AND 
THE  DIVIDED  BY  10*.  FOR  OPTICAL  DATA  THE  FIRST  WORD  CONTAINS 
WEIGHTS  FOR  FIELD  REDUCED  RA  AND  DEC  AND  THE  SECOND  WORD 
CONTAINS  WEIGHTS  FOR  PRECISION  REDUCED  RA  AND  DEC. 


Figure  4-20.  10-Word  Array  Leaving 
SWSN  in  A(  1) 
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TCOMP 


T  COMP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TCOMP 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
P0STPR 

FUNCTION 

This  subroutine  compares  |(x)  -  xT>  (y)  -  yT>  (z)  -  zT|  with  £.  Four 

sets  of  x~  ,  are  the  maximum  that  can  be  handled.  The 

1  1  1  ±J  r  _D 

results  of  the  comparison  are  printed  with  the  ESPODEPH  output  under 
the  heading  "COMPARISON  POINT  (K)." 

USAGE 

A.  Calling  sequence 
Call  TCOMP  (K) 

B .  Input 

1 .  COMMON 
DTARG 

TEMP 
TRAJX 

CKMER 
KOUT 

2.  Calling  sequence 

K  Set  numbe r  (i.e.,  K  =  1  ,  2  ,  3 ,  4) 

C.  Output 
1.  COMMON 

Sets  of  x,  y,  z,  tp) ,  tjrp>  are  set  at  octal  location  15100  to 
be  used  as  inputs  by  the  GIPAR  program. 


Array  containing  the  four  sets  of  x^, ,  y^, 
ZT  ’  tD’  Vd 

Temporary  storage 

Array  containing  the  integrated  x ,  y ,  z  at 
times  (t^  + 

km/e.  r.  conversion  factor 
Output  tape  number 
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TC0MP 


TCOMP 


2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 

1.  Library 

GLOP 

SQRTF 

B.  Program 
OUTPT 
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TGDJD 


TGDJD 


SUBROUTINE  IDENTIFICATION 


A.  Title 
TGDJD 

B.  Segment 
ESPODEPH 

C.  Called  by  subroutine 
TPRNT 

FUNCTION 


Function  is  to  compute  Julian  date  and  calendar  date  from  integration 
time  and  prints  date  line  of  trajectory  block  print. 

USAGE 

A.  Calling  sequence 
Call  TGDJD 

B .  Input 

1.  COMMON 

TEMP  Temporary  storage 

TEPQJCH  Epoch  time,  minutes  from  midnight 

TG  Time  to  integrate  to  (from  0*1  day  of  epoch) 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 


A.  Library 

GLOP 

PANT 


B.  Program 

DATE  -  sets  up  calendar  date  from  TG 
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TIME 


TIME 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TIME 

B .  Segment 
ESP0D 

C.  Called  by  subroutines 


OBSIN 

TINIT 


FUNCTION 

Function  is  to  compute  the  Julian  date.  Year  and  TMONTH  must  be 
whole  numbers.  Day  may  be  a  fraction  (fractional  days  will  be  added  into 
TOMIN,  THOUR;  TMINS  and  SECS  may  be  fractional). 

USAGE 

A.  Calling  sequence 

Call  TIME  (YEAR,  TMONTH,  DAY,  THOUR,  TMINS,  SECS, 
TJD ,  TCjTMN) 

B.  Input 

1.  COMMON 


2.  Calling  sequence 


YEAR 

TMNTH 

DAY 


Two  digits  (i.e.,  63)  (year) 
(Month) 


THOUR 

TMINS 

SECS 


Any  number  of  digits  (day) 
Any  number  of  digits  (hour) 


Any  number  of  digits  (minutes) 
Any  number  of  digits  (seconds) 


C .  Output 


1.  COMMON 


2.  Calling  sequence 


TJD 

TOTMN 


Julian  date 

Number  of  minutes  after  midnight 


D.  Error/action  messages 
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TIME 


TIME 


SUBROUTINES  USED 
A.  Library 


B.  Program 


EQUATIONS 

Julian  Date 

JD  =  2433282.5  +  [365  (YY  -50)  +  [n]  +  (M  +  DD  -  1)] 
To  obtain  the  number  of  days  additional  due  to  leap  year 


[n]  = 


where  [n]  =  integer  part  only;  if  there  is  no  remainder  then 

M  -  ["]  -  1 

since  YY  is  now  the  beginning  of  a  leap  year. 


YY  =  Last  two  digits  of  epoch  year 

M  =  Number  of  days  in  previous  months  from  1  January 
DD  =  Day  of  epoch  month 

This  equation  calculates  the  Julian  date  for  1  January  of  the  specified 
year;  the  following  examples  show  the  remainder  of  the  calculation: 

Example  1:  21  March  1965 

Y  -  1950  =  15  (365)  (15)  =  5475 

Y  -  1948  =  17  £nj  =  4,  not  a  leap  year 

JD  =  2438761.5  +  59  +  20  =  2438840.5 

59  from  table  of  days  in  previous  months  since  1  January  (not 
including  month  of  interest) 

20  =  (DD  -  1) 
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TIME 


TIME 


Example  2:  20  July  1980 

Y  -  1950  =  30  (365)  (30)  =  10950 

Y  -  1948  =  32  ,  a  leap  year 

JD  =  244239.5  +  182  =  19  =  2444440.5 
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TINIT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TINIT 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 

DPRIM 

MNELTC 

FUNCTION 


Function  is  to  take  the  epoch  time  and  find  the  Julian  date;  the  epoch 
time  is  in  minutes  from  midnight  of  epoch  day  and  to  compute  a 


g° 


USAGE 


Calling  sequence 
Call  TINIT 


B. 


Input 

1. 


C0MM0N 

CDAYMN 

Number  of  days  in  m 

CDEG 

Degrees/ radian 

CPI 

TT 

C2PI 

2tt 

DDAY 

Epoch  day 

DH0UR 

Epoch  hour 

DMIN 

Epoch  minute 

DSEC 

Epoch  second 

DTYPE 

Initial  condition  type 

DYEAR 

Epoch  year 

TEMP 

Temporary  storage 

Calling  sequence 

C.  Output 


C0MM0N 

CSEPS 

COS  € 

DLEPS 

Ac 

DLPSI 

Ai[i 

DNUT 

Nutation  correction 

DSDAY 

Epoch  day,  days  from  beginning  of  year 

DSFDAY 

Epoch  time,  fraction  of  day 
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TINIT 


TINIT 


TALFAG 

TEPQCH 

TJDATE 


a  g  for  midnight  day  of  epoch 
Epoch  time,  minute  from  midnight 
Julian  date  of  midnight,  epoch  day 


2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 


A.  Library 

CQSF 

SINF 


B.  Program 

PIMOD  Takes  principal  value  of  angle  between  0  and  2tt 
TIME  Computes  Julian  date 

EQUATIONS 


1. 


2. 

3. 


N,  Nutation  Correction 

€  =  23°  26'  35" 
cos  €  =  0.91 74559 
J  =  number  of  years  from  1900 
=  259°  18  -  19°  3414  (J) 

Ai)j  =  -17."  2  sin  J2  +  11'  3  sin  [-160?  61  +  719?  9957  (J)j 
N  =  cos  eAijj 

A€  =  9V  2  cos  «  +  0."  6  cos  [-160?  61  +  719?  9957  (J)] 

a  at  epoch  (true  of  date  equinox  and  equator) 

J  =  Julian  date  -2,430,000 
o 

J  +  14, 980 

T  -  °  _ 

365.  25 


a 

g° 


Integer  part  of  J  only 

7T 


( TITOO  [23925.  836  +  1. 84542J  +  (9.  29  x  10"b)  J2  +  n] 


+  2tt 
o  <  a 


(J  -  M)} 


(radian) 


go 


2tt 
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TINIT 


TINIT 


4.  Days  (fractional  portion)  since  01  Jan 


F ractional  Days  = 


D  hour 
~Z4 


+ 


D  min 
1440 


,  year  of  epoch 

D  sec 
86,  400 
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TMSEP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TMSEP 

B.  Segment 
ESPOD 

C.  Called  by  subroutine 

DPRLM 

MNELTC 

FUNCTION 


Function  is  to  convert  the  year,  number  of  days  from  beginning  of 
year,  and  the  fraction  of  a  day  to  the  year,  month,  day,  hour,  minute, 
and  second.  This  routine  does  not  account  for  the  possibility  of  a  non¬ 
leap  year  at  the  turn  of  the  century  (e.  g.  ,  2000  A.  D.  ). 


USAGE 


A.  Calling  sequence 
Call  TMSEP 


B.  Input 


1 .  COMMON 

CDAYMN 

DSDAY 

DSFDAY 

DYEAR 


Number  of  days  in  month 

Epoch  day,  days  from  beginning  of  year 

Epoch  time,  fraction  of  day 

Year  from  beginning  of  the  century  (e.  g.  , 

50,  59,  63) 


2.  Calling  sequence 


C.  Output 


1.  COMMON 

DDAY 

DHOUR 

DMIN 

DMNTH 

DSEC 


Epoch  day 
Epoch  hour 
Epoch  minute 
Epoch  month 
Epoch  second 


2.  Calling  sequence 
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TMSEP 


TMSEP 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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TPRLM 


TPRLM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TPRLM 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
INTEG 

FUNCTION 


Function  is  to  perform  the  initialization  necessary  prior  to  the  start 
of  the  first  iteration  of  a  differential  correction  run.  The  auxiliary  quan¬ 
tity  a  used  in  the  simulation  of  radiation  pressure  is  computed  here. 

USAGE 


A.  Calling  sequence 
Call  TPRLM 


B.  Input 

1.  C(JMM(JN 

TN(JMX 

TN0MP 

CDEG 

CDTER 

CVTERM 

CSCJLC 

C  LIGHT 

CERAU 

DAREA 

DMASS 

CKMER 

NDPR 

NIDP 


x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  (km,  km/  sec) 
a,  6,  (3,  A,  R,  v  of  the  vehicle  at  epoch 
(km,  km/sec,  deg) 

Degrees  per  radian 

Conversion  from  input  distance  unit  to  Earth 
radii 

Conversion  from  input  velocity  unit  to  Earth 
radii  per  minute  ^ 

Solar  constant  (watts/meter  ) 

Speed  of  light  (km/ sec) 

Earth  radii  per  astronomical  unit  ^ 

Effective  area  of  the  spacecraft  (meter  ) 

Mass  of  the  spacecraft  (kg) 

Kilometers  per  Earth  radii 
Number  of  Category  1  variable 
Locator  in  IVSTR  of  the  table  of  identifiers  of 
the  Category  1  variables 


CDAD2M 

CK 

NPR 

NPBIS 


Value  of  CDA/2m 
Value  of  K 

Total  number  of  Category  1  and  Z  variables 
being  solved  for 

Locator  in  VSTR  of  the  initial  bias  estimates 
of  the  Category  Z  variables 
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2.  Calling  sequence 


C.  Output 


1. 


C0MM0N 

TICRT 

TIP0L 

TALFA 

CENTER 

RJUPT 


TSUSB 

NITCT 

VSTR(NPAR) 


x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  (e.  r.  , 
e.  r.  / min) 

a. ,  6,  (3,  A,  R ,  v  of  the  vehicle  at  epoch  (e.  r.  , 
e.  r.  /min  radians) 
a  ,  used  in  RPRESS  subroutine 
Central  body  in  integration  (0  for  Earth) 

Test  radius  for  inclusion  of  Jupiter  as  a  per¬ 
turbation  influence  on  trajectory  (set  to  156. 
ER)  33 

Best  RMS  in  curve  fit  (initialized  at  10  ) 

Iteration  counter  (set  to  1) 

Initial  values  of  the  solution  parameters 


D.  Error/action  messages 


SUBROUTINES  USED 
A,  Library 


B.  Program 
JCS 

EQUATIONS 


a  = 


R2  — 
m 


where 

S  =  CS0LC 
C  =  CLIGHT 
R  =  CERAU 
A  =  DARE A 
m  =  DMASS 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
TPRLM 

B.  Segment 
ESP^DEPH 

C.  Called  by  subroutines 
POSTPR  (ESP0DEPH) 

FUNCTION 


Function  is  to  perform  the  initialization  necessary  prior  to  the  start 
of  the  trajectory  simulation.  The  auxiliary  quantity  a  used  in  the  simula¬ 
tion  of  radiation  pressure  is  computed  here. 

USAGE 

A.  Calling  sequence 
Call  TPRLM 

B.  Input 

1.  COMMON 

TNQJMX 
TN(/>MP 

CDEG 
CDTER 
CVTERM 

CS0LC 
C  LIGHT 
CERAU 
DAREA 
DMASS 
CKMER 

2.  Calling  se 


C.  Output 

1.  C0MM0N 

TICRT  x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  (Earth  radii, 

e.  r  .  /  min) 

TIPCjL  x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  (Earth  radii, 

e.  r.  /min,  radians) 


x,  y,  z,  x,  y,  z  of  the  vehicle  at  epoch  (km/  sec.  km) 
a  ,  6,  (3,  A,  R ,  v  of  the  vehicle  at  epoch  (km/ sec , 
km,  deg) 

Degrees  per  radian 

Converts  input  distance  unit  to  Earth  radii 
Converts  input  velocity  unit  to  Earth  radii  per 
minute  ^ 

Solar  constant  (watts/m  ) 

Speed  of  light  (km/ sec) 

Earth  radii  per  astronomical  unit  ^ 

Effective  area  of  the  spacecraft  (meters  ) 

Mass  of  the  spacecraft  (kg) 

Kilometers  per  Earth  radii 

quence 
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TALFA 

CENTER 

RJUPT 


NDTCT 


a,  used  in  RPRESS  subroutine 
Central  body  in  integration  (0  for  Earth) 

Test  radians  for  inclusion  of  Jupiter  as  a  per¬ 
turbative  influence  on  trajectory  (set  to  156. 
e.  r.  ) 

Counter  used  in  SELECT  for  At,  T  table 


D.  Error/  action  messages 


SUBROUTINES  USED 
A.  Library 


B.  Program 
JCS 

EQUATIONS 


a  - 


m 


where 

S  =  CS0LC 
C  =  C  LIGHT 
R  =  CERAU 
A  =  DAREA 
M  =  DMASS 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
TPRNT 

B.  Segment 
ESPODEPH 

C.  Called  by  subroutine 
POSTPR 

FUNCTION 


Function  is  to  set  up  and  execute  the  printing  of  trajectory  information 
in  ESP0DEPH. 

USAGE 

A.  Calling  sequence 
Call  TPRNT 

B.  Input 

1.  C0MM0N 

TALFAG 
TEMP 
TEPOCH 
TG 

TRAJX 
CDEG 
CELLIP 
CKMER 
CMU 
CPI 
C2PI 
C  WE 
IOUT 

2.  Calling  sequence 


C.  Output 

1.  COMMON 


2.  Calling  sequence 


a  g  for  midnight  day  of  epoch 
Temporary  storage 

Epoch  time,  minutes  from  midnight 

Time  to  integrate  to 

x,  y,  z,  x,  y,  z  at  time  TG 

Degrees  /  radian 

Ellipticity  of  the  Earth 

km/e.  r.  ,  , 

GM  Earth  (e.  r.  / min  ) 

IT 

2tt 

Earth's  rotational  rate 
Output  tape  number 
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D.  Error /action  messages 


SUBROUTINES  USED 


A.  Library 

GL(JP 

PANT 

SQRTF 


B.  Program 

ATNQF 

CTQJP 

PIMCjD 

PLTEL 

TGDJD 


Arc  tangent 

Converts  cartesian  to  polar 
Principal  angle  between  0  and  Zv 
Converts  polar  to  elements 
Computes  Julian  date  to  calender  date  from 
integration  time 


EQUATIONS 


Compute  latitude,  longitude  and  altitude. 


Geodetic  latitude, 


Longitude, 


Height, 


=  tan 


f  2  ZV7'  m  '2 

lx  +  y  J  (1  - 


0' 


X.  =  a  - 


a  -  co  t 
go  e 


h  =  r 


aed-0 


1  -  (2  €  - 


2  2 

2.  x  +  y 

€  )  - 5 - 


TJZ 


Compute  apogee  and  perigee  altitudes. 

Apogee  altitude  (e.  r.  ),  AP^  =  a*  +  e)  “  ae 

Perigee  altitude  (e.  r.  ),  P^  =  a*  (1  -  3)  -  ag 

Compute  the  period  and  time  of  the  next  nodal  crossing  measured  in 
minutes  from  epoch. 


P  = 


Z  tt  a 


3/2 


cos 


1/2 

u 

n  ■  ~3TT 
a 

r  cos  (-co)  +  ae 
a 
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where 


ca  =  argument  of  perigee 
E^  =  eccentric  anomally  of  the  nodal  crossing 


sin  E 


N 


-  V! 


1  -  cos2  En  ,  En  =  tan  1 


sin  E 


N 


cos  E 


N 


M.t  =  E.t  -  e  sin  E.T 
N  N  N 


At  = 


M.t  -  M 
N  o 

n 


If  At  «=  0,  set  At  =  At  +  P 


T.t  =  T  +  At  -  T 
N  o 


T  =  Current  time  (min  from  0  day  of  epoch) 
Tq  =  Epoch  time  (min  from  0  day  of  epoch) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
TRAJ 

B.  Segment 

ESP0DDC 

ESP0DEPH 

C.  Called  by  subroutine 

P0STPR  (ESP0DEPH) 

INTEG  (ESP0DDC) 

FUNCTION 

This  subroutine  integrates  the  equations  of  motion  and  variational 
equations  to  a  specified  time. 

USAGE 

A.  Calling  sequence 
Call  TRAJ  (TN) 

B.  Input 

1.  C0MM0N 

(See  storage  allocation  on  next  page) 

2.  Calling  sequence 

TN  Time  to  integrate  to 

C.  Output 

1.  C0MM0N 

(See  storage  allocation  on  next  page) 

2.  Calling  sequence 

SUBROUTINES  USED 

A.  Program 
DAUX 
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Table  4-IV.  COMMON  (YYYY)  Storage 


YYYY 

Program  Tag 

Des  cription 

(851) 

NDPR 

Number  of  variational  parameters 

(479) 

HMAX 

Maximum  allowable  step  size 

(480) 

HMIN 

Minimum  allowable  step  size 

(482) 

ER 

|  Step  size  test  parameters 

(481) 

YMIN 

J  See  method 

(483) 

NRRR 

Ratio  of  Runge-Kutta  step  to  Cowell  step 

(861) 

F  LVE 

Flag  for  DAUX  routine 

(862) 

SKIP 

=  0,  skip  second  evaluation  of  Y  for  var. 
parameters 

(1438) 

TRAJX 

Output — contains  values  consistent  with  TN 

(1495) 

T  LIST 

Input  and  storage,  at  output  values  consistent 
with  T 

T  may 

equal  TN,  but  their  difference  will  never  be  greater  than  H. 

TRAJX(1  -  3) 

X,  y,  z 

TRAJX(4-  6) 

x,  y,  z 

TRAJX(7 -  9) 

x,  y,  z 

TR  AJX(  1 0-  1  5) 

61X’  6iY- 

SjZ, 

61X*  6iY>  bii 

first  variation 

TR  AJX(1 6-  2 1 ) 

62x,  62y, 

62z, 

62x,  62y,  §2z 

second  variati 

etc.  for  NDPR 

variations 
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Table  4-V.  C0MM0N  (T LIST)  Storage 


TLIST 

Program  Tag 

Description 

1 

FLAG 

Initialization 

parameter  —  initialize  when 

nonzero 

2 

T 

Current  time 

3 

4-30 

31-57 

58-84 

85-192 

H 

Y(  1 -  27) 

YP(  1-27) 

YPP(  1  -  27) 

TR(l-27,  1-4) 

Current  step 

yr  y2.  •  •  ■ 
yr  y2.  •  •  • 
yr  y2.  •  •  * 

Intermediate 

size 

-  yn 
•  yn 

,  y  DAIJX  stores 

n  2nd  der.> 

storage 

These  values 
must  be 
\  supplied 
when 

FLAG i  0 

N  =  3(NDPR  +  1) 
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Figure  4-21  a.  TRAJ  Flow  Diagram 
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Figure  4-21  b.  TRAJ  Flow  Diagram  (Continued) 
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Figure  4-21  c.  TRAJ  Flow  Diagram  (Continued) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
TTAPE 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
P0STPR 

FUNCTION 


Function  is  to  generate  a  trajectory  tape  of  x,  y,  z,  x,  y,  and  z 
vs  T.  Where  T  is  minutes  from  O^1  day  of  epoch,  x,  y,  z  are  in  Earth 
radii,  and  x,  y,  z  are  in  Earth  radii  per  KEMIN. 

USAGE 


A.  Calling  sequence 
Call  TTAPE 


B.  Input 


1. 


C0MM0N 

CMU 

DBUFS 

DVEHN 

I0UT 

TG 

TRAJX(l) 

(2) 

(3) 

(4) 

(5) 

(6) 


3  ,  Z 

GM  Earth  (e.  r.  min  ) 
Auxiliary  buffer  storage 
Vehicle  name  and  number  (BCD) 
Output  tape  number 
Time  to  integrate  to 
x  ( e .  r .  ) 
y  (e.  r.  ) 
z  (e.  r. ) 
x  ( e .  r .  / min) 
y  (  e .  r .  / min) 
z  ( e.  r .  / min) 


Z.  Calling  sequence 


C.  Output 

The  trajectory  tape  which  is  generated  is  made  up  of  blocks  of 
data,  each  block  is  made  up  of  18  sets,  containing  7  words  of  the  following 
format: 
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T  time  in  minutes  from  0  day  of  epoch 
X  (e. r.) 

Y  (e.r.) 
z  ( e.  r . ) 

x  (e.  r./KEMIN) 

y  (e.  r./KEMIN) 

z  (e.  r./KEMIN) 

D.  Error  /action  messages 

SUBROUTINES  USED 

A.  Library 

MX0RD 

SQRTF 

B.  Program 
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TWRAP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TWRAP 

B.  Segment 
ESP^DEPH 

C.  Called  by  subroutine 
P0STPR 

FUNCTION 


Function  is  to  write  the  final  block  of  trajectory  tape  and  the  sentinel 
block. 

USAGE 

A.  Calling  sequence 
Call  TWRAP 

B.  Input 

1.  C0MM0N 

DBUFS  Auxiliary  buffer  storage 

N0UT  Ephemeris  tape  number 

2.  Calling  sequence 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
MX0rd 

B.  Program 
TTAPE 


Generates  ephemeris  tape  (x,y,z,  x,y,z 
vs  t) 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
UBRED 

B.  Segment 
ESPC^DDC 

C.  Called  by  subroutine 
UBSGET 

FUNCTION 

This  subroutine  reads  observations  into  variable  storage.  The 
observations  are  read  from  L0G  7  and  into  variable  storage  starting  at 
location  VSTR  (NUBS).  As  many  blocks  will  be  read  as  can  be  handled 
in  the  remaining  portion  of  C$MM0N  storage. 

USAGE 

A.  Calling  sequence 
Call  UBRED 

B.  Input 

1.  C0MM0N 

DBUFS  Auxiliary  buffer  storage 

MT  Observation  tape  number 

2.  Calling  sequence 

C.  Output 

1.  C0MM0N 

VSTR(NUBS)  Array  containing  observations  from  L($G  7 

2.  Calling  sequence 

D.  Erro  r/action  messages 

SUBROUTINES  USED 

A.  Library 
MX0RD 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
UBSGET 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
SELECT 

FUNCTION 


Function  is  to  get  next  observation  time  from  variable  storage. 


USAGE 

A.  Calling  sequence 
Call  UBSGET 


B.  Input 


1. 


C0MM0N 
DBUFS 
VSTR  (NUBS) 

TEMP 

TUBSEF 

C0MLST 


Auxiliary  buffer  storage 

The  starting  location  of  the  table  of 
observations 

Tempory  storage 

Sentinel  block  detection  flag 

Dimension  of  variable  storage 


Z.  Calling  sequence 


C.  Output 

1.  COMMON 

PUBS  (1) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(8) 


Sensor  number  ^ 

Time  in  min  from  0  day  of  epoch 
Range  measurement 
Azimuth  measurement 
Elevation  measurement 
Range  rate  measurement 
Hour  angle  measurement 
Declination  measurement 


if  applicable 
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PSIG  (1) 

°R 

(2) 

°A 

(3) 

°E 

(4) 

°RDT 

(5) 

°HA 

(6) 

°DECL > 

PKSUBS 

Rejection 

\  Observation  weights 


obs  ervation 


Note:  These  three  arrays,  though  being  considered  here  as  outputs 
from  this  package  are  actually  setup  by  routine  M0VEVS 
which  is  driven  by  UBSGET 

2.  Calling  sequence 


SUBROUTINES  USED 


A. 

Library 

B. 

Program 

M0VEVS 

Moves  observation  set  from  variable 
storage  to  working  storage 

REWT 

Rewinds  the  observation  tapes 

SKIPT 

Skips  C(j)MM(?N  portion  of  observation 
tape  at  the  beginning  of  all  iterations 
except  the  first 

UBRED 

Reads  observations  into  variable  storage 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
UNPAKSN 

B.  Segment 
ESP$D 

C.  Called  by  subroutines 
PRC0NS 

FUNCTION 

This  subroutine  unpacks  2  3  bit  integer  s  stored  in  two  c  ells,  (A)  and  (B) 
(at  a  B23  and  B47),  into  four  cells  starting  in  C(l).  The  numbers  in  (C) 
are  in  floating  point  and  scaled  (i.  e.,  C(  1)  =  A(LEFT)/  10000.  ). 

USAGE 

A.  Calling  sequence 

Call  UNPAKSN  (A,  B,  C) 

B.  Input 

1.  C0MM0N 

2.  Calling  sequence 

A  Two  23  bit  integers 

B  Two  23  bit  integers 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

C  4  floating  point  numbers  (scaled) 

D.  Error /action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
UPDATE 

B.  Segment 
ESP0DEPH 

C.  Called  by  subroutine 
P0STPR 

FUNCTION 

Function  is  to  update  a  given  covariance  matrix  to  a  specified  time  t 
and  to  print  the  resulting  matrices.  The  covariance  matrix  to  be  updated 
can  either  be  a  6  x  6  (a,  6,  |3,  A,  R,  v),  a  7  x  7  (a,  6,  p,  A,  R,  v,  C^A/Zm 
or  K)  or  an  8x8  (a,  6,  p,  A,  R,  v,  C^A/Zm,  K). 

The  updated  matrices  are  given  in  polar,  Cartesian,  and  orbit  plane 
system  s. 

USAGE 

A.  Calling  sequence 
Call  UPDATE 

B.  Input 

1.  COMMON 


DCF  LG 


DC  package  control  flags 


DTMP 


Used  as  temporary  storage  by  this  routine 


NATA 


Identifies  the  starting  location  of  where  the 
triangular  A^A  is  stored 


NBDNS 


Starting  location  for  the  bounds 


NDPAR 1 


Starting  location  where  the  solution  vector 
will  be  stored 


NDPR 


Number  of  all  differential  and  initial  param¬ 
eters  to  solve  for  (Category  1) 


NPR 


Number  of  all  parameters  to  solve  for 

Starting  location  of  where  the  inverse  A^A 
is  stored 


NR 
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NRTMP 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 

NSCALE 

Starting  location  of  the  list  of  conversion 
factor  s 

PSTFLG 

Post-processor  control  flags 

PUBS 

Used  as  temporary  storage 

TDPDX 

Contains  matrices  of  partials  for  covariance 
matrix  update 

TRAJX 

Array  containing  x,  y,  2,  x,  y,  2,  etc. 

V  STR 

Floating  point  variable  storage 

CKMER 

km/ e .  r . 

Ktf)UT 

Output  tape  number 

2.  Calling  sequence 

C.  Output 

Print — /.POLAR,  /.CARTESIAN,  /.ORBIT  PLANE,  Eigenvalues 
and  Eigenvectors  corresponding  to  upper  3  x  3  of  /.ORBIT  PLANE,  and 
rotational  angles  for  this  upper  3x3  into  its  principal  axis. 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
GLtf)P 
PANT 


B.  Program 

C0RMAT 

Computes  correlation  (cr  and  p)  matrix 

HUMAH 

Converts  vector  or  matrix  from  machine  units 
to  human  units  or  vice  versa 

LEGS  2 

Least  squares  package,  solves  Ax  =  B 
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UPDATE 


MABAT 

T 

Multiplies  ABA  where  B  is  a  lower  triangular 
matrix  of  dimension  n  and  A  is  an  n  x  n  full 
matrix 

MLTUT 

Converts  lower  triangular  matrix  to  upper 
triangular  matrix 

POPPC 

Sets  up  rotation  from  cartesian  to  orbit  plane 
coordinates 

PPLPC 

Computes  partial  of  ADBARV  with  respect  to 
Cartesian  coordinates 

PRAXIS 

Computes  components  of  the  principal  axis 
of  the  u,  v,  w  covariance  matrix 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
VAREQ 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutines 
DAUX 

FUNCTION 


Function  is  to  account  for  the  central  body  and  effects  and  to 
evaluate  the  second  derivatives  for  the  variational  equations. 


USAGE 


A.  Calling  sequence 
Call  VAREQ 


B.  Input 


1. 


C0MM0N 

CMU 

TRZ 

TR3 

TR5 

TLIST 

PMAT 

VMAT 

FJ 

NDPR 

NICPR 

NIDP 

CDADZM 

TD0N 

CK 

TDRAG 


GM  of  Earth 

Magnitude  squared  of  the  radius  vector  from 
the  center  of  the  Earth  to  the  vehicle 
Magnitude  cubed  of  the  above  vector 
Magnitude  to  the  fifth  power  of  the  above  vector 
Numerical  integration  working  storage 
Matrix  of  position  dependent  effects  in  the 
variational  equations 

Matrix  of  velocity  dependent  effects  in  the 
variational  equations 

Array  containing  the  desired  zonal  harmonic 
constants  (J]_,  J^,  *  *  •  ,  J]^) 

Number  of  Category  1  variables  being  solved  for 
Number  of  initial  condition  (a,  6,  (3,  A,  R,v) 
parameter  being  solved  for 
Start  of  array  in  IVSTR  identifying  the  Category  1 
variables  being  solved  for 
Drag  parameter  Cj^A/Zm 
Drag  variation  modifier 
Drag  variation  K 

Array  containing  the  perturbative  acceleration 
of  the  vehicle  due  to  atmospheric  drag  in  the 
x,  y,  and  z  directions 
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2.  Calling  sequence 


C.  Output 

1 .  C$MM$N 

TLIST  Numerical  integration  working  storage 

2.  Calling  sequence 

D.  Error /action  message 

SUBROUTINES  USED 

A.  Library 

B.  Program 
$UTER 

EQUATIONS 

A.  Central  body  effects  in  PMAT 


3  a.  2 

-5 

3m- 

-tt  xY 

R 

xz 

R3 

PMAT  =  PMAT  + 

R 

R  R 

3|i 

-^yz 

R 

R3 

3|i 

-'r  yz 

R 

3ii  2  ii 

5  Z  '2 
R  R 

B. 


effects  in  PMAT 


1  5  T  [JL 


7  z 


T  =1TJz- T  3  “  2 

R  V  R 


U  =  |  J  •  (l  -  5 

R  V  R 
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x2S  -  U 

xyS 

— » 

xzT 

PM  AT  =  PM  AT  + 

xy  S 

y2S  -  U 

y  zT 

xzT 

y  zT 

z2T  -  3U 

d 

dt' 


9x 

9p 


PM  AT  1-^1  +  VMAT  '  8x 


where 


3P- 


3p- 


3p- 


i=l.  2, 


9x  9y  9z  1 

3P~  ’  3p[  ’  3pTJ 


NDPR 


C.  When  C^A/2m  is  a  solution  parameter 


d 

dt' 


8x~ 

d2 

dx~ 

a  m 

"dt2 

a( 

'cda ) 

V  2m  J 

6\ 

<  2m  J 

x 


drag 


Zm 


+  TD0N  •  K 


-* 

- 

D.  When  K  is  a 

solution  parameter 

d2 

9x* 

d2 

8x" 

■  Xdrag 

dt2 

9(KT 

"dt2 

. a(K). 

(cda 

h£r  +  TD<W 

TD$N 


4-373 


VPERT 


VPERT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
VPERT 

B.  Segment 
ESP^DDC 
ESP^DEPH 

C.  Called  by  subroutines 

SETIC  (ESP0DDC,  ESP0DEPH) 

FUNCTION 


Function  is  to  compute  the  partials  of  the  Cartesian  coordinates  with 
respect  to  desired  Category  1  parameters  and  to  initialize  the  integration 
list  with  these  partials. 

USAGE 


A.  Calling  sequence 
Call  VPERT 


B.  Input 


1. 


C0MM0N 

TICRT 

TIP$L 

IVSTR 

NDPR 

NIDP 

TEMP 


Nominal  Cartesian  coordinates 
Nominal  spherical  coordinates 
Fixed  point  variable  storage 

Total  number  of  Category  1  variables  to  solve  for 
Identifier  for  table  indicating  Category  1  type 
variables  to  be  solved  for 
Temporary  storage 


2.  Calling  sequence 


C.  Output 

1.  C0MM0N 

TLIST  Numerical  integration  working  storage 

2.  Calling  sequence 

D.  Error/action  messages 
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VPERT 


VPERT 


SUBROUTINES  USED 

A.  Library 
C(?SF 
SINF 

B.  Program 

EQUATIONS 


Initialize  variational  equations. 
a  (right  ascension) 


9x 

3a 


=  -y 


| l  =  x 

3a 


3z 

~5E 


=  0 


5  (declination) 


3x 

36 


=  -  r  sin  6  cos  a 


3y  c 

=  -r  sm  o  sm  a 


3z 

3S 


=  r  co 


s  6 


P  (flight  path  angle) 


3x  3y  3z  _ 
3p  3p  3p 


9x 

9a 


"N 


=  -y 


ft-*  pi 


9a 


9x 

9^ 


=  z  cos  a 


it--* 


z  sm  a 


pi 


=  V  (cos  p  cos  6 

-  cos  A  sin  p  sin  6), 


9x 

w 


|  =  -vj^sin  P  cos  6  +  cos  A  cos  p  sin  6)  cos  a  +  sin  A  cos  p  sin  aj 
=  -v£(sin  p  cos  6  +  cos  A  cos  p  sin  6)  sin  a  +  sin  A  cos  p  cos  aj 


9  z 

=  v( cos  A  cos  p  cos  6  -  sin  p  sin  6) 
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J 


VPERT 


VPERT 


A  (azimuth) 

9x  9y  9z  _  ~ 
9A  "  9A  ~  9A  " 

=  v(  s  in  A  s  in  6 
9  A  ' 


cos  a  -  cos  A  sin  a)  sin  (3 


3y 

3  A 


v(sin  A  sin  6  sin  a  +  cos  A  cos  a)  sin  (3 


3z 

3A 


-v(sin  A  cos  6  sin  p) 


J 


P 


4 


r  (magnitude  of  radial  vector) 


3x  _  x 

37  "  7 


9y  _  y 

3r  "  r 

3z  _  z 
3  r  -  r 


P5 


9x  _  9y  _  9 z  _ 

9*r  “  97  “  87  ~  U  J 


v  (velocity) 


9x  9y  _  9z 
9v  9v  9v 

9x  _  x 
9v  ”  v 

py  _  y 

9v  v 


9z  _  z 
9  v  v 
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WE0FT 


WE0FT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
WE0FT 

B.  Segment 
ESPOD 
ESP0DDC 

C.  Called  by  subroutine 

LODOBS  (ESPOD) 

WRTCOM  (ESPOD,  ESPODDC) 

FUNCTION 

Function  is  to  write  a  sentinel  block  on  the  program  work  tape. 
USAGE 

A.  Calling  sequence 
Call  WEOFT 

B.  Input 

1.  COmm.Cn 

DBUFS  Auxiliary  buffer  storage 

MT  Observation  tape  number 

2.  Calling  sequence 

C .  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/ action  messages 

SUBROUTINES  USED 

A.  Library 

MXORD 

B.  Program 
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WRTC0M 


WRTC0M 


SUBROUTINE  IDENTIFICATION 

A.  Title 
WRTC0M 

B.  Segment 
ESP0D 
ESP0DDC 

C.  Called  by  subroutines 


(ESP0D) 

(ESP0DDC) 

(ESPODDC) 

(ESP0D) 


DPR0S 

FIT 

INTEG 


MAIN  CONTROL 


FUNCTION 

Function  is  to  write  C0MM0N  data  storage  on  the  work  tape.  The 
routine  writes  a  fixed  number  of  blocks,  on  the  work  tape  "MT,"  of  con¬ 
secutive  cells  from  the  start  to  the  end  of  C0MM0N.  The  first  128  word 
block  written  on  tape  contains  blanks  except  for  the  first  and  second  words. 
"70  A  TAPE  7"  is  the  first  word.  "OXXXAAAA"  is  the  second  word,  where 
the  XXX  represent  the  vehicle  number.  A  represents  blank.  A  sentinel 
block  is  written  on  the  tape  after  all  the  data  is  written. 


USAGE 


A.  Calling  sequence 
Call  WRTC0M 


B.  Input 


1.  COMM0N 


C  WE 
DBUFS 
DVEHN 
MT 


Earth's  rotational  rate 
Auxiliary  buffer  storage 
Vehicle  number  and  name  (BCD) 
Observation  tape  number 


2.  Calling  sequence 


D.  Error/action  messages 
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WRTC0M 


WRTC0M 


SUBROUTINES  USED 

A.  Library 
MX0RD 

B.  Program 


REWT 

Rewinds  the  observation  tape 

WE0FT 

Writes  an  E.0.F.  on  the  observation  tape 
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WRT0BS 


WRT0BS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
WRT0BS 

B.  Segment 
ESP0D 

C.  Called  by  subroutine 
Ltf)D£)BS 

FUNCTION 


Function  is  to  write  observations  on  observation  tape  in  blocks, 
sets  are  written  as  full  128  word  blocks  with  a  maximum  of  55  blocks 
(704  observation  sets)  written  at  any  one  entry  into  the  subroutine. 

USAGE 

A.  Calling  sequence 
Call  WRT0BS 

B.  Input 

1.  C0MM0N 

MT  Observation  tape  number 

NMBER  Number  of  observations 
TEMP  Temporary  storage 

2.  Calling  sequence 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

D.  Error/action  mes sages 


The 


4-383 


XCR0SS 


XCROSS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
XCR0SS 

B.  Segment 
ESP0DDC 
ESP0DEPH 

C.  Called  by  subroutines 

PAR0UT  (ESP0DDC) 

PRAVIS  (ESP0DEPH) 

FUNCTION 

This  subroutine  performs  the  cross  product  of  two  three-dimensional 
vectors. 

C  =  A  x  B 

USAGE 

A.  Calling  sequence 

Call  XCR0SS  (A,  B,  C) 

B.  Input 

1.  C0MM0N 

2.  Calling  sequence 

A  Three-dimentional  vector 

B  Three-dimentional  vector 

C.  Output 

1.  C0MM0N 

2.  Calling  sequence 

C  Three-dimentional  solution  vector 

D.  Error/action  messages 
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XCR0SS 


XCR0SS 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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YHADEC 


YHADEC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
YHADEC 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
PAR0UT 

FUNCTION 

Function  is  compute  the  vector  Y,  when  range,  hour  angle  and 
declination  are  given.  The  range  measurement  is  assumed  to  be  the  com¬ 
puted  range  since  it  is  not  a  measurement  reported  with  hour  angle  and 
declination. 

USAGE 

A.  Calling  sequence 
Call  YHADEC  (R,  Y) 

B.  Input 

1.  C0MM0N 


PSTAT(7) 
PSTAT  (8) 


coordinates  of  the  sensor  in  the  w 
system 


PUBS(7)  Measured  hour  angle 

PUBS(8)  Measured  declination 


Z.  Calling  sequence 

R  Computed  slant  range 


C.  Output 


1.  C0MM0N 


Z.  Calling  sequence 


Y 


Vector  Y  (y  1>  y y3) 


D.  Error /action  messages 
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YHADEC 


YHADEC 


SUBROUTINES  USED 

A.  Library 
C0SF 
SINF 

B.  Program 
EQUATIONS 


y  - 


s 

i 

W1 

0 

+  (R  cos  H  cos  5) 

0 

s 

w0 

0 

3 

0 

o' 

(R  sin  H  cos  6) 

1 

+  (R  sin  6) 

0 

0 

1 

where  H  and  S  are  the  measured  hour  angle  and  declination  measurements 
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YRAE 


YRAE 


SUBROUTINE  IDENTIFICATION 

A.  Title 
YRAE 

B.  Segment 
ESP0DDC 

C.  Called  by  subroutine 
PAR0UT 

FUNCTION 

Function  is  to  compute  the  vector  Y,  when  range  azimuth,  and 
elevation  are  given.  The  Y  vector  represents  the  measured  position  in 
the  inertial  reference  frame.  It  is  used  in  the  computation  of  the  up,  down, 
cross  residuals. 

USAGE 

A.  Calling  sequence 
Call  YRAE(R,  Y) 

B.  Input 

1.  C0MM0N 


PSTAT  (4) 
(5) 


(7) 

(8) 


coordinates  of  the  sensor  in  the  w 
system 


PUBS  (4)  Azimuth  (measured) 

(5)  Elevation  (measured) 


PCSA 

PCSE 

PSNA 

PSNE 


cosine  of  the  computed  azimuth 
cosine  of  the  computed  elevation 
sine  of  the  computed  azimuth 
sine  of  the  computed  elevation 


2.  Calling  sequence 

R  Slant  range  (this  will  be  the  measured  range  if  it  is 
available.  Otherwise  it  is  the  computed  range.  ) 


C.  Output 


1.  C0MM0N 


2.  Calling  sequence 


Y  Vector  Y  (y^  ,  y2>  y3) 
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YRAE 


YRAE 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
C0SF 
SINF 

B.  Program 
EQUATIONS 


y  = 


Wj 

0 

w  s 

L  3  J 


+  (R  sin  A  cos  E)  EAST  +  (R  cos  A  cos  E)  N0RTH  +  (R  sin  E)  VERT 


where 


0~ 

-  sin  <(>* 

0 

COS 

EAST  = 

1 

NORTH  = 

VERT  = 

0 

0 

cos 

sin 

—  — 

_  _ , 

— 

and  R,  A,  E  represent  the  measured  observations.  In  the  absence  of  any 
one  of  these  three,  the  computed  observation  will  be  used. 


4-390 


5.  OPTIONS  AND  PROCESSES 


This  section  presents  the  background  information  and  general  organi¬ 
zation  of  the  principal  options,  processes,  and  interpretations  of  the 
ESPOD  program.  The  rationale  of  the  program  parts  and  the  analyst 
oriented  discussions  of  the  processes  are  given.  This  section  supports  the 
ESP0D  Operating  Instructions  and  Car  d  For  mats  report ,  ESD  -  TDR  -  64  -  39  4. 
The  operating  instructions  have  brief  descriptions  of  the  necessary  input 
options  to  identify  the  necessary  constants  and  flags  to  control  input.  This 
section  gives  information  needed  by  the  analyst  to  structure  the  inputs  to 
accomplish  special  tasks  and  to  interpret  the  slight  variations  of  certain 
outputs  • 

5.  1  INITIAL  CONDITIONS 

Initial  conditions  are  an  estimate  of  the  orbit  elements  of  the  satellite 
which  are  available  in  advance.  These  conditions  give  the  position  and 
velocity  of  the  satellite  for  an  arbitrary  epoch,  in  an  arbitrary  coordinate 
system,  and  in  an  arbitrary  format  ESPOD  accepts  five  different  kinds  of 
initial  conditions  in  three  different  formats.  It  updates  these  to  epochs  se¬ 
lected  under  any  of  four  sets  of  rules.  The  analyst  controls  precisely  the 
option  he  obtains  by  his  choice  of  preliminary  data  input  (or  absence  of 
input).  Table  5-1  presents  the  available  options;  details  on  the  use  of  the 
input  cards  to  select  these  options  are  given  in  Section  2.  1.  2.  1  of  ESD- 
TDR-  64-394,  ESPOD  Operational  Instructions  and  Card  Formats. 

It  is  mandatory  that  initial  conditions  of  some  type  be  provided  to 
ESPOD  to  initiate  the  integration  of  the  orbit,  and  that  these  initial  condi¬ 
tions  be  established  for  an  epoch  within  or  relatively  close  to  the  interval 
of  time  spanned  by  the  observations.  Usually  the  conditions  will  be  speci¬ 
fied  in  the  form  of  SPADATS  mean  elements  at  the  epoch  for  which  they 
were  established.  This  epoch  will  not  fall  typically  at  a  time  useful  to  the 
current  set  of  data  and  must  be  updated  (or  back  dated)  to  a  more  appro¬ 
priate  time.  Updating  to  the  time  of  the  last  observation  of  the  current 
set  is  automatic  for  elements  read  from  the  SEAI  tape  unless  some  other 
epoch  is  specified  on  a  DNREV  card. 

The  DNREV  card  allows  the  analyst  to  specify  the  required  epoch  as 
a  certain  number  of  revolutions  (integer  plus  fraction)  either  from  the  first 
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Table  5-1.  Initial  Condition  and  Epoch  Options 
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NA  =  Not  applicable 


ascending  node  after  launch  or  from  the  node  at  which  the  SPADATS  ele¬ 
ments  are  given.  It  also  allows  the  analyst  to  specify  a  time  for  epoch, 

h 

given  as  day  number  (integer  plus  fraction)  with  0.  0  ,  January  1  equal 
to  1.  0  or  to  indicate  that  the  time  of  the  last  observation  will  be  taken  as 
e  poch. 

ESPOD  also  accepts  osculating  elements  at  a  given  epoch  as  initial 
conditions.  The  input  card  format  for  osculating  elements  is  identical  to 
ESP0D  output  card  format;  hence,  the  elements  resulting  from  any  ESPOD 
iteration  may  be  selected  and  used  as  initial  conditions  for  further  process¬ 
ing  of  the  same  case.  In  order  to  update  (or  backdate)  osculating  elements 
to  a  different  epoch,  it  is  necessary  to  integrate  the  orbit  with  the 
ESP0DEPH  module.  The  given  osculating  elements  at  the  present  epoch 
are  provided  to  ESP0DEPH  as  initial  conditions  with  the  difference  of  time 
between  the  present  and  required  epoch  specified  as  the  update  interval  on 
a  DELTT  card.  Osculating  elements  updated  to  the  new  epoch  are  printed 
on  the  output  listing  and  may  be  transcribed  to  IC0ND  cards  for  subsequent 
input. 

5.2  SOLUTION  VECTOR 

5.  2.  1  Limiting  Dimension  of  Solution  Vector 

ESPOD  calculates  the  differential  correction  for  any  number  of 
variables  between  1  and  50  depending  on  the  allocation  of  variable  core 
storage.  Considerations  regarding  the  allocation  of  variable  storage,  as 
explained  in  Section  3.1,2,  lead  to  the  following  inequality 


n  < 


v307 


2.028  - 


2D  +  28  S  -  m 
3 


5.  167 


or  approximately 


n  <_  5 0. 2 6 


2D  +  28  S  -  m 
33275 


where  n  is  the  dimension  of  the  solution  vector,  D  is  the  number  of  pairs  of 
residual  identifiers  entered  on  DELET  cards  (D  <_  25),  S  is  the  number  of 
sensors  contributing  data,  and  m  is  the  dimension  of  the  Category  1  portion 
of  the  solution  vector. 

NOTE  This  formula  applies  only  if  no  a  priori  S  matrix  is  used 
(the  normal  case). 
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EXAMPLE 

D  =  0,  no  items  manually  deleted 

S  =  10,  ten  contributing  sensors 

m  =  8,  all  Category  1  variables  in  use 

n  <  49.43,  that  is,  the  solution  vector  may 

be  of  any  dimension  up  to  49.  8  dimensions 

are  occupied  with  Category  1  variables 
leaving  41  for  Category  2  variables,  or 
approximately  4  per  sensor. 

5.  2.  2  Specification  of  Solution  Vector 

The  precise  complement  included  in  the  solution  vector  (see  Table  5-1 
for  all  possibilities)  is  defined  by  inputs  on  the  CAT1  and  CAT2  cards. 
Category  1  variables  are  concerned  with  the  motion  of  the  satellite.  Initial 
or  starting  estimates  of  these  variables  must  be  provided  to  initiate  the 
differential  correction.  Variables  1  to  6  are  derived  automatically  from 
the  initial  conditions  which  describe  the  orbit.  Variables  7  and  8  must  be 
provided  as  input  on  the  DRAG  card,  but  even  lacking  any  estimate  whatso¬ 
ever,  they  must  be  set  initially  to  some  nonzero  value.  Category  2  varia¬ 
bles  are  concerned  with  the  biases  associated  with  the  sensors.  Generally, 
in  using  ESPOD  to  solve  for  the  orbit  elements  of  a  satellite,  Category  2 
variables,  when  included  provide  compensation  for  suspected  biases  in 
sensors.  They  are  not  in  such  a  case  typically  included  to  calibrate  the 
sensors.  However,  they  are  appropriate  for  use  in  sensor  calibration  when 
particular  care  is  exercised  in  choosing  the  object  satellite.  It  is  not  re¬ 
quired  to  provide  initial  estimates  of  the  biases  when  solving  for  Category  2 
variables  ,  but  it  will  usually  hasten  convergence  if  they  are  approximately  known. 
Initial  e stim ate  s  of  biase s  are  input  with  BISES  car ds  with  the  preliminary  data. 

5.  2.  3  Bounds  (See  also  Section  5.  6.  3) 

The  differential  correction  process  changes  each  variable  in  the 
solution  vector  by  an  amount  calculated  to  minimize  the  root  mean  square 
weighted  residuals  (see  Section  5.4  for  definition  of  residuals).  These  cal¬ 
culated  amounts  are,  however,  subjected  to  upper  limits  by  BOUNDS  incor¬ 
porated  as  side  conditions  in  the  solution  process.  Bounds  have  the  princi¬ 
pal  function  of  limiting  the  differential  corrections  to  a  value  permitted  by 
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the  linear  approximation  to  the  nonlinear  convergence  process  (see  Sec¬ 
tion  5.6).  Bounds  may  also  be  set  to  zero  and  thus  used  to  hold  constant  a 
variable  contained  in  the  solution  vector.  A  Category  1  variable  may  be 
held  constant  by  omitting  it  from  the  solution  vector,  or  by  setting  its  cor¬ 
responding  bound  to  zero;  its  effect  as  an  initial  condition  is  in  any  case 
retained  for  integrating  the  orbit.  A  sensor  bias,  if  it  is  known  to  exist  as 
a  constant,  may  be  selected  as  a  variable  from  Category  2,  included  in  the 
solution  vector,  entered  as  an  estimated  bias  on  the  BISES  card,  and  then 
held  CONSTANT  by  setting  the  corresponding  bound  to  zero.  Note  that  if 
any  bound  is  changed  with  a  BNDS  card,  all  bounds  must  be  presented  and 
specified  (see  Section  2. 1.3. 2. 4  of  ESD-TDR -64-394). 

The  selection  of  initial  bounds  is  a  matter  requiring  experience  on 
the  part  of  the  analyst.  (Nominal  values  applicable  for  near  Earth  near 
circular  orbits  have  been  built  into  the  program.  )  This  typical  set  is  shown 
in  Table  5 -II.  The  bounds  for  any  particular  case  would  depend  upon  the 
case,  that  is,  upon  the  quality  of  the  data,  the  dimension  of  the  solution 
vector,  the  complement  of  the  solution  vector,  the  stability  of  the  solution 
vector,  the  accuracy  to  which  initial  biases  are  known,  the  correlations 
between  variables,  whether  the  normal  matrix  is  ill  or  well -conditioned, 
the  quality  of  the  initial  conditions,  and  the  set  of  contributing  sensors. 

No  rule  can  be  given  for  choosing  optimum  bounds  because  their  effect  is 
apparent  only  in  already  difficult  convergence  problems.  Experience  indi¬ 
cates  that  analysts  often  err  at  first  by  choosing  bounds  too  tight. 
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Table  5 -II.  Possible  Elements  in  Solution  Vector 
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5,  3  SENSOR  DATA 


Sensor  data  in  ESPOD  are  assigned  to  observations  in  the  ESPCjD 
segment  of  the  program  (see  Table  5 -III).  The  identifying  number  of  the 
observing  SPADATS  sensor  is  provided  with  the  observation.  The 
observations  are  scanned  and  all  contributing  sensors  are  identified. 

(The  data  for  these  sensors  are  then  read  from  SEAI  tape  and  stored  in 
core.  )  Any  sensor  cards  input  with  the  preliminary  data  modify  or 
supplement  the  data  in  core.  Calculations  are  made  to  complete  the 
Master  Sensor  Table.  Every  contributing  sensor  requires  an  entry  in 
the  STYPE  table  to  specify  its  standard  deviation  class.  This  table  is 
stored  in  ESPOD.  Any  STYPE  cards  input  with  the  preliminary  data 
modify  or  supplement  the  STYPE  table  in  core.  IF  A  CONTRIBUTING 
SENSOR  IS  NOT  REPRESENTED  IN  THE  STYPE  TABLE,  ITS  OBSERVA¬ 
TIONS  WILL  NOT  ENTER  THE  DIFFERENTIAL  CORRECTION. 

5.  3.  1  Source  of  Standard  Deviations 

Every  sensor  is  assigned  to  a  particular  standard  deviation  class, 
except  that  FPS  49  sensors  have  their  standard  deviations  computed  as 
rational  functions  of  credence  reported  on  the  observation  card  (Column  10). 
This  standard  deviation  class  is  identified  by  the  value  called  SIGMA  type. 
The  standard  deviations  proper  are  stored  in  the  SIGMA  table.  The 
SIGMA  type  designates  a  particular  row  in  the  SIGMA  table.  Each  row  of 
the  SIGMA  table  contains  four  values.  The  values  are  interpreted  dif¬ 
ferently  for  radar  measurements  than  for  camera  measurements. 


Sensor 

Value  1 

Value  2 

Value  3 

Value  4 

Radar 

aR 

a  A 

‘e 

aR 

BAKER-NUNN 

Camera 

<tq  (FR) 

<t6(FR) 

%(PR) 

<t6(PR) 

(FR)  -  Field  Reduced  Data 
(PR)  -  Precision  Reduced  Data 


If  any  standard  deviation  is  entered  as  zero,  the  corresponding 
observation  will  not  enter  the  differential  correction,  but  the  residual 
will  be  printed  (without  flags).  The  weighted  square  residual  will  not 
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be  included  in  the  summary  table  of  means  and  root  mean  squares  by 
sensor  and  observation  type  following  the  residuals  print.  The  SIGMA 
table  is  stored  in  the  ESPQ)D  segment.  Any  SIGMA  cards  input  with 
the  preliminary  data  modify  or  supplement  the  SIGMA  table  in  core. 
This  process  is  outlined  in  Table  5-IV. 

Table  5-IV.  Selection  of  Standard  Deviations 


Given 

Data  Punched 
Refer  to 
Obtain 
Refer  to 
Obtain 


Observation  Card 

Sensor  Number  (and  other  special  data  identifier) 

Table  of  Sensor  Data 
Sigma  Type,  1  <  n  <  60 
SIGMA  TABLE,  line  n 

c r^,  c r^,  a-^,  o-£  (or  cr^ ,  <Tg)  from  line  n  of  SIGMA  table 


5.3.2  Bias  Removal 

The  latitude,  longitude,  height  above  the  ellipsoid,  and  the  time 
of  observation  are  used  to  relate  the  position  of  the  sensor  to  the  inertial 
coordinate  system  of  integration.  If  it  is  desired,  apparent  biases  in 
these  values  may  be  solved  for  and  added  to  the  tabular  values  in  order 
to  reduce  the  net  residuals.  The  range,  azimuth  (or  right  ascension), 
elevation  (or  declination),  and  range  rate  are  used  to  relate  the  position 
and  velocity  of  the  spacecraft  to  the  sensor.  If  it  is  desired,  apparent 
biases  in  these  values  may  be  solved  for  and  added  to  the  observed  values 
in  order  to  reduce  the  residuals.  The  method  for  calling  for  these  bias 
solutions  is  described  in  Section  5.2. 

5.4  RESIDUALS,  WEIGHTING,  ROOT  MEAN  SQUARES, 

AND  EDITING 

5.4.1  Residuals 

Residuals  are  defined  in  ESPOD  as  the 

"Actual  observed  value  corrected  for  atmospheric  re¬ 
fraction  as  required,  from  a  given  sensor  at  a  given  time" 

minus 

"Computed  observed  value  as  if  spacecraft  were  on  the 
trajectory  specified  by  the  current  elements  with  the 
current  perturbations  and  were  seen  from  the  same 
sensor  at  the  same  time" 
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or  more  briefly 


"observed  value"  minus  "computed  value" 

Residuals  are  calculated  and  printed  as  applicable  for  the  principal 
observed  values  which  are  directly  reported  on  observation  cards  (see 
Table  5-V). 


Table  5-V.  Notation  for  Reported  Observations,  Their 
Residuals  and  Standard  Deviations 


A  Priori  Standard 

V  ariable 

Obse  rved 

Computed 

Residual 

Deviation  for 
Sensor  S 

Range 

R 

R. 

l 

AR 

ffSR 

Azimuth 

A 

A. 

i 

AA 

tsa 

Elevation 

E 

E. 

i 

AE 

^SE 

Range  rate 

• 

R 

♦ 

R. 

i 

AR 

°"SR 

Right  Ascension 

a 

a. 

i 

Aa 

^Sa 

Declination 

6 

6. 

i 

A6 

aS6 

Residuals  are  also  calculated  and  printed  out  on  option  for  other 
right-handed  Cartesian  coordinate  systems  for  analyst  convenience  as 
listed  below: 

a)  UVW —  Orbit  plane,  one  axis  is  line  to  earth  center 

b)  STW — Orbit  plane,  one  axis  is  tangent  to  instantaneous 
velocity 

c)  LLH  —  Topographic,  latitude,  longitude,  height  of  sensor 
These  coordinate  systems  are  defined  in  Section  7  of  this  volume. 

5.4.2  Weighting 

Residuals  are  weighted  before  inclusion  in  the  differential  cor¬ 
rection  process.  Proper  weighting  causes  more  accurate  measurements 
to  have  a  larger  effect  on  the  differential  correction  than  less  accurate 
measurements.  Weighting  is  accomplished  by  dividing  residuals  by  the 
a  priori  standard  deviation  appropriate  to  the  observation  class  and  to 
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the  sensor  with  which  the  observation  was  taken  (see  Section  5.  3). 

Further,  azimuth  and  declination  residuals  are  weighted  by  cos  E  and 
cos  a,  respectively,  to  account  for  convergence  of  azimuth  and  declination 
lines  at  the  zenith  and  poles  respectively. 

5.4.3  Editing  Residuals 

5.4.  3.1  Preliminary  Editing 

ESPOD  computes  a  variety  of  statistics  under  the  general  class  of 
"Root  Mean  Square  Weighted  Residuals  (RMSWR).  "  These  differ  according 
to  the  type  of  residuals  included.  They  are  developed  for  differing  ap¬ 
plications  during  the  progress  of  the  program.  Observations  or  their 
residuals,  or  both,  are  subjected  to  a  series  of  three  tests  before  they 
are  considered  for  inclusion  in  any  RMSWR,  and  to  a  fourth  test  before 
inclusion  in  a  differential  correction.  The  first  three  tests  are: 

Test  1:  If  the  residual  has  been  selected  by  the  analyst  to 
be  omitted  by  being  identified  on  a  DELET  preliminary  input 
card,  it  is  rejected.  The  residual  is  printed  and  tagged 
with  an  asterisk  (*) . 

Test  2:  If  the  observation  occurs  at  a  time  removed  more 
than  ten  days  from  epoch,  it  is  rejected.  (Analyst  may 
change  the  "10"  to  any  other  value  with  a  TMAX  card  input 
with  preliminary  data.) 

Test  3:  If  the  weighted  residual  exceeds  a  gross  outlier 
criterion,  it  is  rejected.  (Analyst  may  modify  the  gross 
outlier  criterion  sensor -by- sensor  by  an  STYPE  card 
input  with  the  preliminary  data.)  The  residual  is  printed 
and  tagged  with  a  "G.  " 

Test  1  provides  an  opportunity  for  an  analyst  to  reject  certain  ob¬ 
servations  following  a  manual  review  of  the  residuals.  Then,  if  he  so 
desires,  he  may  loosen  the  values  associated  with  the  gross  outlier  re¬ 
jection  and  the  KRMSWR  rejection  (described  below);  this  will  effectively 
disable  any  automatic  rejection.  This  manual-deletion-only  feature 
permits  the  least  squares  process  to  operate  on  the  same  set  of  residuals 
from  one  iteration  to  the  next,  thus  leading  the  least  squares  process  to 
a  definite,  unique  solution.  Test  2  provides  an  opportunity  to  reject  an 
observation  which  has  a  mispunched  time,  and  which  would  cause  integra¬ 
tion  to  run  unnecessarily. 
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A  gross  outlier  (Test  3)  may  arise  from  many  causes,  i.e., 

punching,  data  handling,  or  transmission  error.  The  gross  outlier  test 

is  defined  by  a  constant,  G  ,  maintained  with  the  sensor  data,  and  which 

s 

may  be  changed  with  a  STYPE  card.  Gg  is  multiplied  by  the  a  priori 

0” y-j  ,  cr  A  ,  c rr,  cr  •  ,  c r  >  ov  as  maintained  in  the  designated  line  of  the  SIGMA 
K  hj  K  a  °  *  9 

table  to  obtain  the  upper  bound  within  which  AR  ,  AA,  AE,  AR  ,  Aa,  A6f 
respectively,  must  lie.  Typically  Gg  is  chosen  to  result  in  approximate 
upper  bounds  of  AR  <  1000  km ,  A  A  <  10° ,  AE  <  10°,  AR  <  10  m/sec, 
but  in  no  instance  can  Gg  be  greater  than  9999.  The  analyst  has  the  option 
to  set  any  individual  Gg  to  zero,  thereby  selectively  eliminating  data  from 
a  particular  sensor. 

5. 4.  3.  2  Definition  of  RMSWR  for  Editing  Purposes 

Weighted  residuals  which  pass  these  first  three  tests  are  squared 
and  summed  separately  over  all  sensors  by  class  of  observation. 
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This  set  of  RMSWR's  is  developed  on  every  iteration  for  use  in 
editing  residuals  for  inclusion  in  the  differential  correction  process  on 
the  immediately  following  iteration.  They  are  not  printed. 

5.4.  3.  3  Editing  by  KRMSWR 

On  every  iteration  except  the  first,  K  times  the  RMSWR  (where  0 

0 

is  a  typical  observation)  as  developed  on  the  previous  iteration  is  used  as 
a  further  test  for  rejecting  outlying  residuals  before  they  enter  into  any 
differential  correction  process  or  any  other  RMSWR's. 

Test  4:  If  the  weighted  residual  exceeds  1.5  times  the 
R M  S W R 0  which  was  calculated  on  the  previous  iteration, 
it  is  rejected.  (K  nominally  equals  1.5.  An  analyst  may 
change  K  to  any  other  value  with  a  99-card,  item  452, 
with  preliminary  data  input.)  The  residual  is  printed 
and  tagged  with  a  "K.  " 


This  test  does  not  apply  on  the  first  iteration  and  never  applies  to 
the  calculation  of  RMSWR^  (see  Figures  5-1  through  5-3). 

5.4.4  Definition  of  RMSWR  for  Test  of  Fit 


Residuals  which  pass  the  Test  4  enter  into  the  sum  total  RMSWR 
used  as  the  criterion  for  judging  elements.  It  is  this  total  RMSWR  which 
is  minimized  in  the  differential  correction  process 


RMSWR 


+  1 
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Figure  5-1.  Editing  Process  on  First  Iteration 
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Figure  5-2.  Editing  Process  on  Iterations  After  the  First 
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Figure  5-3.  Rejection  Criteria  for  AR  Taken  at  Sensor  S  on  An 
Iteration  Other  Than  the  First 
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where  N  is  the  number  of  residuals  passing  all  four  tests.  The  RMSWR 
for  the  current  iteration  and  the  previous  best  RMSWR  are  printed  fol¬ 
lowing  the  residual  summary  at  the  end  of  each  iteration. 


In  the  interest  of  providing  detailed  information  about  the  perform¬ 
ance  of  each  sensor,  the  RMSWR1  s  are  also  accumulated  by  sensor  and 
type  of  observation.  These  RMSWRg^'s  do  not  enter  into  any  calculations, 
but  are  derived  for  information  only.  They  are  also  printed  following  the 
residual  summary  at  the  end  of  each  iteration. 


RMSWRC 

o  <p 
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5.  5  REFRACTION  CORRECTION 


ESPOD  will,  on  option,  correct  errors  in  observed  elevation  angles 
due  to  refraction  in  the  troposphere.  Nominally  no  correction  is  made. 

To  scale  the  correction,  a  nonzero  estimate  for  the  mean  surface  value 
of  refraction  Y^(N^)  is  input  on  the  STYPE  card  with  preliminary  data 
input.  To  call  the  correction  into  use,  a  refraction  flag  is  input  on  the 
STYPE  card. 

If  data  from  any  one  station  is  always  corrected  for  refraction, 
ESPOD  can  be  compiled  to  perform  the  correction  automatically.  A 
check  may  be  made  to  determine  the  automatic  mode  by  interpreting  the 
sensor  type  table  printed  on  option. 

5.  6  ESPOD  CONVERGENCE  LOGIC  AND  CONTROL 

5.  6.  1  Process  Control 


ESPOD  iterates  on  the  elements  provided  as  initial  conditions  to 
derive  new  elements  which  minimize  the  RMSWR  of  observations.  This 
process  is  terminated  according  to  various  criteria  controlled  by  the 
analyst  or  built  into  the  program,  or  both.  Possible  conditions  for 
termination  are: 

•  Program  determines  that  the  next  diffe rential  correction 
applied  to  the  current  "best  elements  to  date"  will  not 

be  sufficiently  improved  to  change  the  RMS  by  as  much 
as  0.  1  percent  (Analyst  may  change  the  "0.  1  percent"  to 
any  other  value  by  entering  a  99  card  item  00454  with 
preliminary  data  input.  ) 

•  Program  has  integrated  the  orbit  five  times  without 
having  obtained  the  convergence  condition  defined 
immediately  above.  Program  terminates,  saving  on 
option  either  the  last  obtained  approximate  elements 
or  the  "best  elements  to  date."  (Analyst  may  change 
the  "5"  to  any  other  value  using  a  NITER  card  with 
the  preliminary  data  input.  ) 

•  Program  is  unable  to  obtain  a  converging  step  from  a 
set  of  starting  elements  even  though  the  differential 
correction  has  been  subjected  to  successively  tighter 
bounds  on  four  successive  iterations.  (The  size  of 
initial  bounds  is  controlled  by  the  analyst.  ) 
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The  convergence  problems  that  the  analyst  directly  controls  are: 


•  Determing  that  convergence  has  occurred 

•  Limiting  the  number  of  iterations  performed 

•  Limiting  the  size  of  the  differential  correction  in  cases 
of  an  ill-conditioned  normal  matrix 

•  Rejecting  truly  impossible  problems 
5,  6.  2  Iteration  Process 

ESPOD  proceeds  one  iteration  at  a  time.  The  essential  and  time 
consuming  part  of  the  iteration  is  the  integration  of  the  orbit  and  the 
calculation  of  the  residuals  and  partial  derivatives.  Once  this  is  complete, 
the  RMSWR  has  been  calculated  and  compared  with  the  best  RMSWR  pre¬ 
viously  obtained.  If  it  is  smaller,  then  the  elements  of  the  current  orbit 
are  the  new  "best  elements  to  date"  obtained  and  it  is  desirable  to  test 
whether  further  iterations  are  worth  pursuing.  This  is  accomplished  by 
calculating  the  differential  correction  derived  from  this  iteration,  estab¬ 
lishing  new  elements,  and  predicting  by  linear  theory  what  the  RMSWR 
due  to  them  should  be;  this  process  does  not  require  an  integration  of  the 
orbit.  If  the  predicted  RMSWR  is  less  than  0.  1  percent  of  the  current 
RMSWR,  then  the  current  best  elem  ents  are  defined  as  the  solution,  e.  g.  ,  the 
process  has  converged.  When  this  criterion  is  not  satisfied,  another 
iteration  is  required  and  the  program  proceeds  again  to  integrate  the  orbit 
using  the  new  elements  and  to  test  whether  they  are  indeed  better  than 
the  current  best.  This  general  iteration  is  presented  in  Table  5-VIsteps  1 
to  10.  Step  11  permits  the  analyst  to  truncate  the  process  after  an 
arbitrary  number  of  iterations. 

5.  6.  3  Bounds 

5.  6.  3.  1  Definition  of  Bounds 


ESPOD  calculates  the  differential  corrections  by  solving  the  weighted 
least  squares  problem  under  a  side  condition  that  the  individual  elements 
of  the  differential  correction  do  not  exceed  some  respective  bound,  and  the 
sum  of  their  squares  weighted  by  the  inverse  bounds  squared  do  not  exceed  unity. 

^P^/B.^  On  any  individual  step  it  is  not  known  whether  the  side 

condition  will  influence  the  solution  or  not.  In  a  real  case,  whether  it  has 
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or  not  is  printed  out  with  the  residual  summary.  These  bounds  are  entered 
initially  with  the  BNDS  cards,  but  are  subject  to  automatic  tightening  or 
loosening  according  to  builtin  logic. 


Table  5-VI.  Convergence  General  Flow,  General  Case 


1 .  Given  .  E 
k  n 


2.  Calculate  .  R 
k  n 


E  =  Elements  of  orbit 


n  =  Number  of  this  set 
of  elements 

.  E  -  kth  trial  at  corrected 
k.  n 

elements  En  derived 

from  E  , 
n-  1 

|^En  may  or  may  not 

be  better  than  E  . 

n-  1 

E  =  Results  from  a  success¬ 
ful  iteration,  i.  e.  ,  best 
elements  to  date. 


=  Initial  Conditions 


Residuals  of  observations 
with  respect  to  orbit  deter¬ 
mined  from  kE  n 


3.  Calculate  RMS 
k  n 


4.  Test:  .  RMS  <RMS  . 

k  n  n- 1 


Root  mean  square  of  weighted 

residuals  .  R 
k  n 

This  tests  whether  kEn  is 
better  than  En-  1 


yes 

.  t 

continuation  for 
accepting  En  as 
new  best  elements 
to  date— ►  Step  5 


RMS0  =  Machine  maximum 
value,  i.  e. ,  E^ 

no  is  always  best  to  date, 

continuation  for 
proceeding  to  a 
new  trial— ►Step  14 


5.  Write  E  on  Tape  LQG7  Saves  En  and  related  param¬ 

eters  for  use  in  next  iteration, 
on  an  immediately  following 
conditioned  start,  and  for 
immediately  following 
ESPQDEPH  runs. 
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Table  5-VI.  Convergence  General  Flow,  General  Case  (Continued) 


6.  Calculate 


1 


AE 

n 


Calculates  the  appropriate 
differential  corrections  to 

obtain  lEn+l*  zEn+r  etc- 

jAEn  is  a  function  of  current 
bounds,  B. 


AE 

2  n 

AE 
i  n 

AE 

4  n 


Set  k  =  1 


£AEn  is  a  function  of  B/2. 
jAEn  is  a  function  of  B/4. 
4AEn  is  a  function  of  B/8. 


At  this  point,  we  proceed  to  apply  the  differential  corrections 
attempting  to  achieve  a  succeeding  En+i  which  results  in  an  RMSn^-j 
smaller  than  RMSn.  We  are  prepared  to  terminate  the  process  if 
RMSn+j  is  not  significantly  different  from  RMSn  to  merit  a  new 
integration  of  the  orbit  (Step  10),  or  if  the  number  of  iterations  already 
performed  equals  some  preassigned  number  (Step  11). 


8.  Continuation  for  trial  ,  E  . 

k  n+1 

Calculate  ,  AE  .  =  E  +  ,  AE 
k  n+1  n  k  n 

9-  Calculate  .  PRMS  . 

k  n+1 


, _  _  _ PRMS  , 

10.  Test,  k  n+1 


RMS 


RMS 


n 


No 

continuation  for 
significant 
difference  - 
Step  1  1 


Yes 

continuation  for 
negligible 
difference  - 
Step  12 


11. 


Test:  NITER  Completed 


No 

continuation  for 
not  completed 
go  with  kEn+1  to 
Step  1 


Yes 

continuation  for 
completed — ► 
Step  12 


Calculates  the  predicted 
RMSn+|  assuming  linear 
partial  de  r  ivative  sofresiduals 
with  re spect  to  elements ,  and 
using  k^En. 

This  tests  whether  the  pre¬ 
dicted  RMSn+|  is  significantly 
different  according  to  criterion 
€  from  RMSn+i.  The  value  c 
is  nominally  0.001,  but  may 
be  changed  by  analyst  option. 

If  the  difference  is  significant, 
the  program  will  try  to  con¬ 
tinue  (see  Step  11)  in  order  to 
determine  whether  RMSn+l 
is  less  than  RMSn,  that  is, 
whether  kEn+l  IS  indeed  a 
better  set  of  elements  than  En> 

NITER  specifies  the  number  of 
iterations  the  analyst  wishes 
to  allow  the  program  to  run. 
The  value  of  NITER  is  nominally 
five  but  may  be  changed  on 
input. 
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Table  5-VI.  Convergence  General  Flow,  General  Case  (Continued) 


12.  Test:  Record  En+i 


This  permits  the  analyst  to 
record  k^n+l  on  taPe  L$G7 
(see  note  to  Step  5  above)  if 
he  chooses.  Nominally,  k-^n+l 
is  a  trial  value  and  would  not 
be  recorded,  but  for  reasons 
particular  to  the  case  at  hand, 
using  kEn+l  ^or  subsequent 
updates  and  conditioned  starts 
may  be  desirable.  Option  is 
controlled  on  JDC  card. 


yes 


no 


13.  Write  En+i  on  tape  L($G7 

This  concludes  the  direct  flow  through  the  convergence  logic.  Exit  is 
to  ESP(?DEPH  if  called  otherwise  to  the  next  JDC  card. 

14.  Continuation  for  proceeding  to  a  new 
trial 

At  this  point,  kEn(n  >1)  has  proved  to  be  a  diverging  step  and  En- 1  is 
still  the  best  set  of  elements  to  date.  Typically,  k^n  =  En-1  +  kAEn-  1- 
The  next  trial  elements  available  are  typically  k+l^n-1-  This  proce¬ 
dure  applies  if  k-:  4. 

Test:  k  ^  4  ? 


yes 


no 


continuation  for  k  +  1. 

Go  with  k+l^^n-1  to 
Step  8. 

At  this  point  4En  has  proved  to  be  a  diverging  step  and  En_  i  is  the  best 
set  of  elements  achievable  with  the  current  bounds.  No  further  auto¬ 
matic  continuation  is  provided;  the  remark  ’’BOUNDS  OVER  EIGHT 
FAILED”  is  printed.  If  ESPC^DEPH  is  called,  En_  i  will  be  used.  This 
concludes  the  direct  flow  through  the  convergence  logic,  with  the  note 
that  convergence  was  not  achieved.  Exit  is  to  ESP$DEPH  if  called, 
otherwise  to  the  next  JDC  card. 


Each  time  new  ’’best  elements  to  date”  are  identified,  and  the  actual 
RMSWR  is  within  10  percent  of  what  it  was  predicted  to  be,  bounds  are 
doubled  to  permit  a  larger,  desirable  correction.  Each  time  new  "best 
elements  to  date"  are  identified  and  the  actual  RMSWR  is  not  within  10  per¬ 
cent  of  what  it  was  predicted  to  be,  the  bounds  are  held  at  the  values  result¬ 
ing  in  new  best  elements.  The  bounds  applied  at  any  iteration  are  printed 
on  the  residual  summary,  as  to  whether  or  not  the  bounds  affected  the 


solution. 
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5.  6.  Z.  Z  Application  of  Bounds 


Each  time  the  actual  RMSWR  proves  to  be  greater  than  the  best 
RMSWR  to  date,  a  solution  with  tighter  bounds  is  tried.  This  tightening 
of  bounds  is  an  attempt  to  limit  the  differential  correction  to  a  region  about 
the  best  elements  to  date  where  the  linear  theory  is  appropriate.  Four 
solutions  with  successively  tighter  bounds  are  tried  in  an  effort  to  improve 
the  RMSWR  before  the  program  concludes  that  a  converging  step  cannot 
be  obtained  from  the  current  best  elements,  at  least  with  the  initial  bounds. 
This  circumstance  is  tested  for  in  Step  4  (answer  "no"),  anticipated  in 
Step  6,  and  controlled  in  Step  14  of  Table  5- VI.  The  de  tails  of  the  proces s 
are  illustrated  in  Figure  5-4  for  a  case  of  proceeding  from  E  to  E^  through 
potentially  four  trials.  The  notation  cor  re  sponds  to  that  of  Table  5- VI.  The 
figure  is  abstracted  for  compactness;  the  steps  in  any  trial  correspond  in 
order  to  Steps  8,  9,  10,  11  (Step  1  implicit),  Z,  3,  and  4  of  those  of 
Table  5- VI. 

5.6.3  Choice  of  Elements  for  use  with  ESPC^DEPH 

After  the  last  iteration,  stopping  either  due  to  Step  10  or  due  to 
Step  11,  the  choice  remains  whether  to  proceed  with  the  best  elements  to 
date  as  proved  by  the  test  in  Step  4,  or  to  proceed  with  the  new  elements 
obtained  from  the  immediately  preceding  differential  correction.  The 
residuals  and  RMSWR  of  these  elements  have  not  yet  been  calculated.  The 
best  proved  elements  to  date  are  automatically  selected  by  ESP$D  unless 
specific  instructions  are  provided  by  the  analyst  via  the  JDC  card.  A 
particular  orbit  may  be  well  behaved  and  successive  iterations  may  be 
predicted  in  advance  as  yielding  converging  corrections,  thus  permitting 
a  bolder  operating  philosophy  (see  Step  1Z,  Table  5-VI). 

5.6.4  Nonconverging  Termination 

If  the  process  is  terminated  on  a  NITER  test  (Step  11,  when  K  =►  1 ) 
the  program  is  operating  in  a  region  where  convergence  is  more  difficult 
to  obtain.  The  analyst  may  choose  to  proceed  with  an  ESP$DEPH  run  with 
either  the  best  elements  to  date  or  new  untried  elements.  However,  if  he 
attempts  to  follow  immediately  with  a  conditional  start,  the  program  will 
reject  the  attempt.  See  discussion  for  conditioned  start,  Section  5.  14. 
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Figure  5-4.  Convergence  Logic  — Abstract  Flow  Diagram  for  E,  and  Trial  E 


5.7  INTEGRATION 


The  integration  procedure  used  in  ESPOD  is  general  in  nature  and 
may  be  used  to  integrate  any  reasonably  behaved  system  of  second  order 
ordinary  differential  equations  of  the  form 

y"  =  ^(t.  yj.---.Yn  Vi>  •  •  • .  yn')>  1  =  !»  *  “  »  n  (U 


In  the  present  program  Equations  (1)  consist  of  the  equations  of  motion 
together  with  their  associated  variational  equations.  It  will,  however,  be 
convenient  to  list  the  formulas  as  they  apply  to  the  general  system  (1)  and 
thereby  conserve  on  notation. 

The  method  may  be  described  as  follows: 

•  Two  numerical  integrations  take  place  simultaneously.  One 
of  these  produces  values  of  the  functions  y^  and  the  other  pro¬ 
duces  values  for  their  derivatives  yj1 .  The  former  is  called 
the  Cowell  method  and  the  latter,  the  Adams -Moulton  method. 
Neither  method  is  used  in  its  simplest  form.  Rather,  both  are 
used  in  summed  form  in  order  to  control  the  growth  of  round¬ 
off  error.  The  Cowell  method  is  summed  twice  and  the  Adams- 
Moulton  once . 

•  Both  the  Cowell  and  the  Adams -Moulton  are  multistep  methods 
that  require  a  certain  number  of  starting  values.  In  the  pres¬ 
ent  program  these  starting  values  are  obtained  using  a  single- 
step  Runge-Kutta  method. 

5.  7.  1  Starting  Method 


The  Runge-Kutta  method  is  used  to  establish  values  of  the  functions 
y^  and  their  derivatives  y/  at  eight  successive  time  steps  subsequent  to 
epoch,  tQ.  At  t  ,  the  values  of  y.  and  y.1  are  the  initial  position  and  velocity. 
Initially,  a  step- size  At  is  provided.  The  step-size  is  nominally  one  min¬ 
ute.  (Analyst  may  change  this  value  to  any  other  number  of  the  form  P/2n, 

P  integral,  with  a  TSTEP  card  input  with  preliminary  data.  )  Using  the 
Runge-Kutta  procedure  the  differential  equations  are  integrated  at  a  step- 
size  h  =  At/R  until  8R  integration  steps  have  been  completed.  Nominally, 

R  =  8.  (Analyst  may  change  the  value  8  to  another  integral  value  with  a 
99-card  Item  483  input  with  preliminary  data.  )  Suppose  that  values  y.  . 

i  ^ 

and  v.  .,  for  some  i  <8R,  of  the  functions  y  and  their  derivatives  y.1  , 

yi,j  J  i 

ponding  to  the  time  t^  =  tQ  +  jh,  are  known.  To  compute  y^  ^  and 


cor  re  si 


Y; 


i,  j+1 


the  following  numbers  are  computed: 
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(2) 


K. ,  =  hf/ 1.,  y.  y!  A 

il  A  3  !.J  l»J/ 


K.?  =  h£.(t.  +  y,y.  .  +  yy!  .  +  -^K. .  ,  y!  +  — 
i2  A  J  2  l>  J  2  J  8  11  i.J  2  > 


K. ,  =  h£.(t.  +  y  ,  y.  .  +yy!  . +$K.1,y!  .  +  ) 

13  i\  J  2  7i,  J  2  7i»  J  8  ll  7i,j  2  y 

K- .  =  h£.(t.  +  h,  y.  .  +  hy!  .  +  ^K.,,  y!  .  +  K. ,  ) 

14  i^j  7i,J  'i.j  2  i3  7i,  j  i3) 

The  new  values  y.  ...  and  y!  ...  are  then  computed  as 
i ,  J+ 1  i.J+1 


y.  .  ,  =  y.  .  +  h 
i,  J+l  i,  J 


y!  .  +  i  (K..  +  K.?  +  K ..) 
7 i, j  6  il  i2  i3 


y!  ...  =  y!  .  +  I  (K..  +  K.,  +  K. ,  +  K.J 
7 i,  j+l  7 i,  j  6  '  ll  iZ  i3  i4 


(3) 

(4) 

(5) 

(6) 

(7) 


Thus,  starting  with  y\  ^  and  y\  q  as  known  quantities,  the  Runge-Kutta 
procedure,  which  consists  of  the  computation  outlined  in  Equations  (Z) 
through  (7),  repeats  itself  until  j  +  1  =  8R.  At  this  point  the  values  y. 


and  y.  .  where  j  =  Rj',  and  j*  =  0,  • 
1j  J 


J 

,  8  are  renumbered  consecutively 
from  0  to  8  and  the  computation  is  continued  as  described  in  the  next 
section . 


5.  7.  Z  Continuation  Procedure 

The  values  y^  ^  and  y!  y  j  =  0,  •  •  •  ,  8,  are  now  used  to  compute  a 
difference  table  (see  Table  5-II). 

The  table  to  the  right  of  the  heavy  vertical  line  is  formed  in  the  usual 
way.  For  that  portion  to  the  left  of  the  vertical  line,  the  following  compu¬ 
tations  are  made. 
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Table  5- VII.  Difference  Table 
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y  i  4  2  4  A  ft 

"F.  ,  =  —^4  -  Cnf.  A  -  C,V  f.  ,  -  CAV  f.  ,  -  C, v  f.  _  -  CQV  f.  q 

,,3  2  0  1,4  2V  1,5  4V  1,6  6  1,7  8  i,  8 


t 


y 

'Fi,4  =-kr-  D0fi,4  -  DlA,S-  D2v\5  ‘  D3*  £i,6 

-  D4A,6  -  D5A,7  -  D6V\7  '  D7A,8  -  D8A,8 

The  difference  table  is  then  completed  down  to  the  diagonal  line  by  the  rule 
that  the  difference  between  any  two  consecutive  entries  in  a  vertical  column 
is  equal  to  the  entry  adjacent  in  the  vertical  column  to  the  right.  The  com¬ 
putation  then  proceeds  as  follows: 

The  predicted  values  are  computed  as 


Trial  values  of  the  next  line  of  differences  in  the  difference  table  are  then 

r 

formed,  based  on  these  quantities.  That  is,  the  differences  V  f  . .  ,  ; 

1  y  * 

r  =  0,  *  *  *  ,  8,  are  computed  and  the  final  corrected  values  are  then  com¬ 
puted  as 


y 


i,  j+1 


y 


i.  j+1 


=  (At) 


=  (At) 


r+2 


r+l^^,  j+1 


The  differences Vrf.  . 

i.J+1 

V  f.  ...  and  the  sums  11 
i,  J+1 

quantity  f .  . ,  .  . 

7  i,J+l 


are  then  computed  and  replace  the  differences 

F.  . .  ,  and  fF  ...  are  computed  based  on  the 
i»  J+1  i,J  +  l 


^Numerical  values  of  the  coefficients  in  the  difference  and  summation 
functions  are  given  in  Table  5-VIII. 
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Table  5-VIII.  Numerical  Values  of  Coefficients 
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Thus,  starting  with  j  =  8,  that  is,  off  the  end  of  the  known  difference 
table,  the  computation  proceeds  cyclicly. 

5.7.3  Step- size  Control 

At  the  beginning  of  an  integration  a  nominal  step- size  At  is  supplied. 
At  each  integration  step  thereafter  the  step-size  is  tested  to  determine  if 
its  current  value  is  adequate  in  order  that  accuracy  will  be  maintained. 
Thus,  after  an  integration  step  has  been  completed  the  quantity 


V  =  Max 
l-i^3 


i>  j+1 


max  (y.  ~T,  y  "  Y 

wi,j+l  ;min 


3  -  S  2 

is  computed.  If  V^IO  /(At)  then  the  integration  is  continued  with  step- 

size  At/2.  Nominally,  S  =  12.  (Analyst  may  change  the  error  control 

3-S 

tolerance  by  inputting  10  with  a  99-card  Item  482  with  preliminary  data.  ) 
The  number  y  .  is  an  input  constant  which  is  different  from  zero  and 
which  scales  down  the  number  V  when  one  of  the  functions  y  is  too  near 


zero.  Nominally  y  .  =  0.  1. 

7  7  mm 


(Analyst  may  change  y  with  a  99-card 


Item  481  input  with  preliminary  data.  ) 

k- 1  -S  _  _3-S 


In  the  event  that  10 
current  step-size 


V^IO  ,  the  integration  proceeds  at  the 

2 


If  V  —  10  1  ^/(At)^  the  number 


W  =  Max 
1^  i^3 


8r 

^  fi.  J+i 

maxtyi,j+l’  ^min> 


-  1  -  S  2 

is  computed.  If  W  — 10  /(At)  then  the  routine  proceeds  with  step-size 

2At.  The  constant  S  is  chosen  at  the  outset  of  the  integration  and  is  fixed 
thereafter.  Attention  is  called  to  the  fact  that  only  the  first  three  equations 
are  subject  to  the  test  described  above. 


The  mechanism  for  proceeding  at  halved  or  doubled  step-size  con¬ 
sists  merely  in  retabulating  the  current  line  of  differences.  Thus,  if  it  is 
desired  to  halve  the  step-size  and  ^  represents  a  halved  difference,  we 
compute 
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^8fi,j+i  =  zfe^Aj+l 


V?f.  xl  =TT«(v7f.  +  448V8f.  ... 

i.  J+1  128  l  v  i,  j+1  i,  j+1 


_6,  _  1 

V  fi,  j+1  ="5T 


v5f 


i,  j+1  "  32 
V  fi,  j+1  =  7E 


V6f.  ...  +(192V7f.  ..,  -  240V8f.  ... 
1>J+1  l  l.J+l  1,  J+1 


V5f.  ...  +  j80V6f.  ...  -  80V?f.  ...  +  40V8f.  .A1 

j+i  V  1.J+1  i.j+i  i,  j+i 


V4f.  ...  +  (32^5f.  -  24V6f.  +  8V7f  -  V8f.  .  . 

i.J+1  V  i,  J+1  i,  J+1  i,  j+1  i,  j+1 


V3f. 
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i.  j+1  8 


V3f.  +  (12V4f.  ...  -  6V5f.  ...  +  V6f. 
i»J+l  V  J+1  i,  j+1  i,j+l 


V2f. 


,  j+1  ? 


V2f.  ...  +  (4V3f.  .  ,  -  V4f. 

l.J+1  V  l.J+l  l.J+l 


Vf.  xl  =  t(  Vf-  xl  +  XI 

i.J+1  21  i,j+l  i,j+l 


Let  V  h.  =  'F.  .  .  and  V  2f.  =  "F.  ... 

i.J+1  i.J+1  i.J+1  i.J+1 


then 


V_1f.  =  [  2V"1 
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V"2f 
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4V'2  -  V'1 


i0^r 

r=0  L 


f.  .  . 
i,  J+1 


On  the  other  hand  if  it  is  desired  to  double  the  step-size  and  V  represents 
a  doubled  difference  the  formulas  are 


^f.  • ,  i  =  2Vf.  -  Vc{.  .. 
i.J+1  i,j+l  i»j+l 


V2f.  =  4V2f.  ...  -  [4V3f.  -  V4f.  J_1 

i.j+i  i.j+i  V  i.j+i  i,j+i 


^  f.  ,  =  8 VJ 
i.  J+1 


f.  ...  -  (l2V4f.  ...  -  6V5f.  ...  +V6f. 

i.j+i  v  i.j+i  i.j+i  i.j+i  y 
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V4f.  ..  .  =  16V4f.  .  .  -  f32V5f.  ...  -  24V6f.  +  8V?f.  ...  -  V8f,  ..  .^ 

i,J+l  i,J+l  ^  i.J+1  i.J+1  i.j+1  i,j+l  J 


'<75{1  it1  =  32V5f,  .tl  -  ^80V6f.  -  80  V f.  ,  +  40V°1  . 


i.  j+1 
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i.  j+1 


y6f.  =  64V6f.  ._L1  -  (l92V7f.  ...  -  240V8f 

i.  j+i  i,  j+i  V  i,  j+i 


V7f.  .J_.  =  128V?f.  ...  -  448V8f.  ... 
I.J+1  It  J+1  It  J+1 


i.j+1/ 
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X,  J+1  It  J+1 
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5.7.4  Integration  to  Specific  Times 

If  values  of  the  functions  y\  and  y /  are  required  at  a  time  different 
from  tg  +  jAt^,  j  =  0,  1,  *  *  *  ,  the  routine  is  interrupted  at  the  point  t^  +  jAtj 
just  prior  to  the  required  point  and  one  Runge-Kutta  integration  is  performed 
at  a  step-size  h  =  t  -  (t^  +  jAt.).  The  procedure  then  returns  to  the  time 
point  tg  +  jAt.  and  proceeds  as  if  it  had  not  been  interrupted. 
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5.  8  EARTH'S  GRAVITATIONAL  POTENTIAL  MODEL 


ESPOD  provides  the  capability  to  calculate  and  sum  the  spherical 
harmonics  of  the  Earth's  gravitational  potential  field.  The  precise  struc¬ 
ture  of  this  field  depends  upon  the  coefficients  J  and  phase  angles  X 

^  ^  n,  m  ^  n,  m 

provided  for  the  individual  terms  of  the  expansion.  These  coefficients  are: 


J 

n,  m 
^n,  m* 

X 

n,  m 


J 

n 

n  =  m 

men 

m  <  n 


Zonal  Harmonic  Coefficients  of  order  n 

Sectorial  Harmonic  Coefficients 

Tesseral  Harmonic  Coefficients  of  order 
n,  degree  m 

Reference  phase  angle  for  Sectorial  com¬ 
ponent  of  Sectorial  and  Tesseral  Harmonics. 


J  may  be  arbitrarily  specified  for  Z  <  n  <  1Z;  J  and  X 
n  J  j  ir  n,  m  n,  m 

be  arbitrarily  specified  for  Z  <  n  <  6,  l^m<6.  The  Sectorial  and 
Tesseral  coefficients  are  internally  converted  to  the  form 


may 


S  =  J 

n,  m  n,  m 

C  =  J 

n,  m  n,  m 


sin  mX 

n,  m 


cos  m\ 

n,  m 


5.  8.  1  Models  Available  in  ESPOD 
5.  8.  1.  1  Model  1 

ESPOD,  without  preliminary  data  input  to  modify  the  Earth  potential 
model,  automatically  uses  only  the  zonal  harmonics  through  J^.  The  coef¬ 
ficients  stored  with  the  program  may  be  printed  on  option  and  verified  as 
agreeing  with  accepted  values.  The  intended  coefficients  in  the  set  through 

J.  are  shown  as  Model  1  in  Table  5-IX.  These  coefficients  hold  the  error 
4 

to  within  approximately  0.  5  km  when  integrated  over  a  Z4-hour  period  at 
a  185  km  altitude.  The  major  contribution  to  error  is  due  to  neglecting 
J2  2’  resulting  in  a  sinusoidal  error  with  a  period  of  1Z  hours  and  amplitude 
of  approximately  0.  5  km. 

5.  8.  1.  Z  Model  Z 

If  alternate,  more  exact,  or  more  complicated  models  are  required, 
it  is  necessary  to  change  the  potential  model  with  preliminary  data  cards. 
For  example,  if  it  is  desired  to  use  the  zonal  harmonics  through  J^,  that 
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Table  5-IX.  Earth  Potential  Model  Options 
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is,  Model  2,  the  Z(#NAL  card  properly  punched,  must  be  input  with  the 
preliminary  data.  The  coefficients  for  J^,  and  will  have  to  be 

changed  with  99- card  input  to  be  converted  from  the  set  using  through 
into  the  set  using  through  JQ.  The  coefficients  from  J  r  through  J  stored 
in  the  program  are  intended  to  be  proper  for  the  set  through  J^.  The 
intended  coefficients  in  the  set  through  are  indicated  as  Model  2  in 
Table  5-IX.  As  above,  the  set  of  coefficients  through  holds  the  error 
within  approximately  0.  5  km  integrated  over  a  24-hour  period  at  a  185  km 
altitude.  Again,  the  major  contribution  to  error  is  due  to  neglecting  ^ 
resulting  in  a  sinusoidal  error  with  a  12  hour  period  and  amplitude  of 
approximately  0.  5  km. 

5.  8.  1.  3  Model  3 

Either  of  the  preceding  sets  of  coefficients  can  be  improved  by 
including  with  them  J ^  ^ ^  2*  the  set  through  so  modified  is  indi¬ 
cated  by  Model  3.  This  term  contributes  a  periodic  effect  only  and  its 
inclusion  will  not  disturb  the  internal  consistency  of  either  Model  1  or 
Model  2.  The  sectorial  harmonics  are  called  into  use  by  inputting  a  SECTR 
card  with  the  preliminary  data. 

5.  8.  1. 4  Model  4 

For  further  accuracy,  additional  harmonics  may  be  called  into  use 
with  the  SECTR  and  TESSR  cards  as  desired  by  the  analyst.  The  fullest 
set  of  coefficients  provided  with  ESPOD  are  indicated  as  Model  4  in  Table 
5-IX.  Using  Model  4  which  includes  Sectorial  and  Tesseral  Harmonics 
through  ^  in  conjunction  with  the  Zonal  Harmonics  through  provides 
accuracy  of  approximately  0.  2  km  after  24  hours  of  integration  at  an  alti¬ 
tude  of  185  km.  The  residual  error  is  due  principally  to  the  uncertainties 
in  the  Sectorial  and  Tesseral  Harmonic  coefficients.  Note  that  currently 
published  values  of  the  coefficients  of  these  harmonics  are  tentative.  If 
and  when  more  accurate  sets  of  coefficients  are  proposed,  they  may  be 
conveniently  inserted  with  99-card  input  for  test  and  trial  purposes. 

5.  9  SUN-MOON  GRAVITY  POTENTIALS  (PLANETARY 
GRAVITY  POTENTIALS) 

In  its  normal  mode  of  operation  ESPOD  includes  the  perturbations 
due  to  the  gravitational  potentials  of  the  sun  and  moon.  For  this  purpose 
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it  requires  the  ephemerides  of  the  sun  and  moon  as  provided  by  the  JPL 
planetary  ephemeris  tape.  This  tape  is  provided  on  tape  L0G8. 

The  analyst  may  selectively  eliminate  the  perturbations  due  to  the 
sun  and  moon.  If  both  are  eliminated,  the  ephemeris  tape  is  not  required. 
The  moon  perturbation  is  eliminated  with  99-card  item  153  set  to  0;  the 
sun  perturbation  is  eliminated  with  99-card  item  154  set  to  0. 

ESPOD  does  not  include  the  gravitational  perturbations  due  to  other 
planets  of  the  solar  system. 

5.  10  ATMOSPHERIC  DRAG 

Atmospheric  drag  is  derived  as  a  force  tangent  to  the  direction  of 
travel  of  the  spacecraft,  jointly  proportional  to  a  drag  parameter  and  the 
density  of  the  atmosphere. 

5.  10.  1  Drag  Parameter  Model 

The  drag  parameter  may  assume,  on  option,  any  of  three  forms: 

1.  C^A/  2m,  the  drag  parameter 

ft  -  t  \ 

2.  C^A/ 2m  +  K  1  )  9  drag  parameter  plus  a  secular 

variation  proportional  to  time  from  epoch.  K  is  the  change 
in  Cj^A/ 2m  in  24  hours. 

(  1  5  Jj!  \\ 

3.  C^A/  2m  +  K  I  cos  ^  “  4  j  »  the  drag  parameter  plus  a 
periodic  variation  as  a  function  of  the  earth  center  angle 
between  the  spacecraft  and  the  atmospheric  bulge.  K  is 
amplitude  of  the  variation  from  the  bulge  to  the  back  side  of 
the  earth. 

5.10.2  Atmosphere  Model 

The  atmosphere  model  may  assume,  on  option,  any  of  the  four  forms 
described  in  this  section. 

5.  10.  2.  1  The  ARDC  Model  Atmosphere,  19^9 

This  model  is  altitude  dependent  only  from  0  km  to  700  km.  It  is 
an  idealized  model  appropriate  to  the  average  effects  during  a  period  of 
uniform  high  solar  activity.  The  years  1966  through  1969  are  expected, 
on  the  average,  to  be  compatible  with  the  ARDC  59  model. 
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5.10.2.2  ARDC  59/ Paetzold  62  Dynamic  Model 


This  model  provides  for  density  to  be  time  and  position  dependent 
for  altitudes  above  130  km.  At  different  altitudes,  the  density  is  modeled 
as  follows: 

0  <  h  <  130  km  =  ARDC  1959 

130  h  <  150  km  =  Faired  interpolation  between 

ARDC  1959  and  Paetzold 

150  <  h  <  1600  km  =  Paetzold  Model 

1600  h  =  Density  defined  as  zero 

It  is  dependent  upon  solar  time  at  the  subspacecraft  point,  season  of 
the  year,  decimetric  (10.7  cm)  solar  flux  (F^)  and  daily  geomagnetic 
planetary  amplitude  (A^).  It  is  uniformly  applicable  between  the  latitudes 
of  positive  and  negative  60  degrees.  Because  of  longitude  dependence,  in 
the  immediate  neighborhood  of  the  poles,  the  density  can  vary  rapidly,  but 
will  on  the  average  take  on  an  appropriate  value.  Because  of  this  effect, 
the  Paetzold  atmosphere  is  not  recommended  for  spacecraft  with  very  high 
inclinations  having  their  perigees  near  the  poles,  especially  during 
magnetic  storms. 

For  spacecraft  having  perigees  at  approximately  250  km  altitude  at 
geomagnetic  latitudes  less  than  50  degrees,  it  is  estimated  that  the  density 
calculated  from  the  Paetzold  Model  atmosphere  is  accurate  to  within  ±10 
to  20  percent. 

5.  10.  2.  3  U.  S.  Standard  Atmosphere,  1962  (COESA  62  Static) 

This  model  is  altitude  dependent  only  from  -5  km  to  7  00  km.  "It  is 
an  idealized,  middle -latitude,  year  round  mean  over  the  range  of  solar 

activity  between  sunspot  minima  and  maxima . however.  .  .  (molecular 

weight  profiles)  are  based  upon  experimentally  determined  values,  modi¬ 
fied  slightly.  ..."  (From  Part  II  of  introduction  to  U.  S.  Standard  Atmos¬ 
phere,  1962). 

5.10.2.4  U.  S.  Standard  Atmosphere,  1962,  Including  Corrections 
for  Top- Atmospheric  Temperatures  (COESA  Dynamic) 

This  model  provides  for  density  to  be  time  and  position  dependent 
for  altitudes  above  90  km.  At  different  altitudes,  the  density  is  modeled 
as  follows: 


5-37 


-  5  <  h  ^  90  km  =  COESA  62  Static 
90  <  h  <  700  km  =  COESA  62  Dynamic 

700  <  h  =  Density  defined  as  zero 

This  model  utilizes  a  correction  which  is  an  empirical  function  of 
the  atmospheric  temperatures  and  the  altitude.  The  temperature  is  in 
turn  a  function  of  the  earth  center  angle  between  the  spacecraft  and  the 
atmospheric  bulge,  decimetric  solar  flux  (F^),  and  daily  geomagnetic 
planetary  amplitude  (A^). 

5.  10.  3  Application  of  Drag  Models 

The  analyst  has  the  option  to  decide  which,  among  the  drag  param¬ 
eters  and  atmospheres  at  his  disposal,  is  best  applicable  to  the  case. 
Where  drag  is  a  small  factor,  because  of  the  shortness  of  the  interval  of 
tracking  or  the  very  high  altitude  of  perigee,  the  unvaried  drag  parameter 
will  suffice. 

When  long  intervals  of  tracking  occur  in  a  rapidly  decaying  situation, 
secular  variation  in  drag  can  be  observed  and  may  be  provided  for.  Secu¬ 
lar  variation  may  be  used  with  all  of  the  given  atmosphere  models. 

When  moderate  intervals  of  tracking  occur  with  a  high  eccentricity 
and  with  perigee  near  the  atmospheric  bulge,  the  variation  in  density  due 
to  position  in  the  bulge  can  be  larger  than  the  variation  due  to  altitude. 

This  positional  variation  can  be  applied  to  either  of  the  static  atmospheres. 
It  provides  a  quasidynamic  effect  without  requiring  the  special  inputs  of 
F1A  and  A  (Table  5-X). 

1U  p 


Table  5-X.  Applicability  for  Combined  Atmospheres  and  Drag  Models 


\ 

ARDC  59 

COESA 

Static 

Paetzold 

COESA 

Dynamic 

CDA/2m 

Applicable 

Applicable 

Applicable 

Applicable 

C£)A/2m 
+  K(t  -  tQ)  1440 

Applicable 

Applicable 

Applicable 

Applicable 

C£)A/2m  +  Kf(ijj') 

Applicable 

Applicable 

Not 

Applicable 

Not 

Applicable 
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5.  10.  4  Source  of  Ap  and  F  }q 

The  Paetzold  model  and  the  COESA  dynamic  model  require  input  of 
the  parameters  F^q  and  A  .  Average  values  may  be  entered  with  a  single 
APF  10  card  identified  by  the  day  of  epoch.  With  average  values  of  A^  and 
F^q,  a  specially  tailored  static  atmosphere  with  position  dependency  is 
obtained.  Daily  values  may  also  be  entered  with  multiple  APF  10  cards 
identified  by  day  of  current  year;  one  card  is  required  for  each  four  days 
of  integration,  during  both  differ ential  correction  and  position  prediction. 

The  most  convenient  source  of  current  values  of  A  and  F.^  is  the 

p  10 

North  Atlantic  Radio  Warning  Service,  Fort  Belvoir,  Virginia.  The  most 

convenient  source  of  one  to  three-day  predictions  of  A  and  F .  ~  is  the 

p  10 

English  language  TWX  messages  sent  out  from  the  Air  Weather  Service 
Scientific  Services  Office,  Scott  Air  Force  Base,  Belleville,  Illinois. 

(Ap^,  the  Fredericksburg  geomagnetic  amplitude,  is  used  as  a  real-time 
approximation  to  A  ).  These  messages  have  the  format  shown  in  Figure 
5-5.  "SOLAK11  means  A^  (actually  A^),  and  ,fSOLRFn  means  F^.  A^  is 
expressed  in  the  units  2y  (or  2  x  10’  ^  gauss).  F  ^  is  given  in  watts  per 
square  meter  per  cycle  per  second.  The  actual  measurements  of  F ^ ^  are 
made  by  the  National  Research  Council,  Ottawa,  Canada.  The  measure¬ 
ments  of  Apr  are  made  at  the  Fredericksburg  Geomagnetic  Observatory, 
Corbin,  Virginia.  The  values  of  A^  are  computed  at  the  University  of 
Gottingen,  West  Germany,  and  these  values  become  available  several 
months  after  the  date  to  which  they  apply. 

5.  10.  5  Input  Control 

In  order  to  incorporate  atmospheric  drag  in  the  solution  it  is  manda¬ 
tory  that  the  analyst  coordinate  inputs  on  the  following  preliminary  data 
cards: 

DRAG 

Specify  an  initial  value  of  C^A/2m.  If  drag  variation 
is  required. 

Specify  secular  or  periodic  drag  variation 
Specify  an  initial  value  of  K 
Specify  atmosphere  model 
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MEASUREMENT  MESSAGE 


00  150110Z 

FM  AGIWARN  BUSTANS  FT  BELVOIR  VA 

TO  RUT,.rHSj/659^  AEROSPACE  TEST  WG  SUNNYVALE  CALIF 

BT 

UNCLAS  WASHAWS  05237 
ACTION:  ACES 

DAY  SOLAK  SOLRF 

1^  006  ,075 

BT 

15/0137Z 


PREDICTION  MESSAGE 


00  150100Z 

FM  AWS  SCOTT  AFB  ILL 

TO  RUWHSj/659^  AEROSPACE  TEST  WG  SUNNYVALE  CALIF 
BT 


UNCLAS  AWSSS 
ACTION:  ACES 

15-M-lU 

DAY 

SOLAK 

SOLRF 

15 

007 

077 

16 

010 

082 

17 

BT 

15/0130Z 

012 

091 

Figure  5-5.  Example  of  Measurement  and  Prediction  Messages 
for  Ak  (SOLAK)  and  F1Q  (SOLRF) 
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CAT  1 


Specify  solution  for  C^A/2m 
If  required,  specify  solution  for  K 

BNDS  (if  nominal  bounds  are  inappropriate) 

Secify  initial  bound  on  differential  correction  in  CpA/2m. 

If  required,  specify  initial  bound  on  differential  correction 
in  K. 

APF 10  (if  dynamic  atmosphere  is  used) 

Specify  day  of  year,  Jan  1=1 
Specify  A 

P 

Specify  F1Q 

(Provide  one  card  for  each  four  days  of  integration, 
unless  average  value  is  used) 

5.  10.  6  Interpretation  of  Drag  Parameter 

ESPOD  accepts  the  density  provided  by  the  model  atmosphere  as  a 
function  of  the  appropriate  inputs.  The  drag  parameter  plus  its  variation 
is  applied  as  a  multiplier  to  this  density.  ESPOD  will  solve  for  those  values 
of  the  drag  parameter  and  variation  which  minimize  the  root  mean  squares 
of  the  residuals.  The  resulting  drag  parameter  is  a  characteristic  of  the 
spacecraft  only  if  the  atmosphere  model  is  accurate.  The  effect  of  includ¬ 
ing  atmospheric  drag  which  is  solved  from  empiric  data  is  summarized 
as  follows: 

a)  Atmosphere  Model  is  perfectly  accurate. 

1.  Solved  C^A/2m  is  average  characteristic  of  spacecraft 

2.  Drag  is  accurately  represented,  if  the  spacecraft  has  a 
constant  C^A/2m. 

b)  Atmosphere  Model  density  is  a  constant  multiple  of  real 
atmospheric  density  in  region  of  interest. 

1.  Solved  CDA/2m  is  a  product  of  this  multiple  and  the 
actual  average  C^A/2m  of  spacecraft. 

2.  Drag  is  accurately  represented  if  the  spacecraft  has  a 
constant  C^A/2m. 
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c)  Atmospheric  Model  is  anomalous  with  respect  to  real 
atmosphere . 

1.  CpA/2m  is  a  corrective  multiple  which  minimizes 
residuals 

2.  Drag  is  represented  inaccurately  to  a  degree  depending 
on  the  anomaly  of  the  model  atmosphere. 

5.  11  RADIATION  PRESSURE  MODEL 

ESPOD  provides  a  radiation  pressure  model  to  estimate  the  contri¬ 
bution  of  solar  radiation  pressure  to  the  spacecraft  acceleration.  The 
model  as  it  stands  is  appropriate  to  spacecraft  which  are  not  subject  to 
extensive  eclipsing,  that  is  it  is  always  applicable  to  high  altitude  earth 
satellites,  lunar  probes,  and  interplanetary  spacecraft.  If  desired,  the 
model  may  be  used  quite  accurately  for  earth  orbiting  spacecraft  which  are 
eclipsed  for  larger  fractions  of  their  orbits  by  adjusting  the  area  to  mass 
ratio. 

To  call  the  radiation  pressure  model  into  operation,  the  analyst  must 
submit  a  RADPR  card  on  which  he  has  entered  an  estimate  of  the  space¬ 
craft’s  area  and  mass.  The  size  of  the  contribution  of  radiation  pressure 
to  the  acceleration  relative  to  the  other  contributions  indicates  that  it  is 
not  a  very  significant  effect  for  short  intervals  of  tracking.  Approximate 
values  of  area  and  mass  will  typically  result  in  an  adequate  estimated  con¬ 
tribution  to  the  acceleration. 

If  the  area  and  mass  are  known  accurately,  it  is  preferable  to  use 
them.  If  they  are  to  be  adjusted  for  eclipsing,  the  area  to  mass  ratio  is 
multiplied  by  (1-f)  where  f  is  the  fraction  of  time  the  satellite  is  in  eclipse. 
The  model  uses  a  solar  radiation  flux  of  1369  watts  per  square  meter  (at 
1  A.  U.  from  the  sun). 

The  input  quantities  which  determine  the  radiation  pressure  effects 
are  the  mass  and  area  of  the  spacecraft.  However,  the  ’’effective  area," 

A  ff,  and  not  the  area  of  the  spacecraft  is  the  input  quantity  on  the  RADPR 
card.  The  effective  area  is  defined: 

Aeff  =  a(1  +  ^B) 
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where 


A  =  Area  of  the  spacecraft 

Y  =  Percentage  of  radiation  reflected  from  the 

surface  according  to  some  reflection  law,  B. 


R  _  fl  for  specular  reflection 
12/3  for  diffuse  reflection 


The  quantity  is  usually  determined  in  the  laboratory.  The  minimum 
value  of  ^e££  =  A;  and  the  maximum  value,  2A.  The  quantity  (1  4*  yB) 
almost  never  exceeds  1.20. 
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5.12  DIFFERENTIAL  a  priori  S  MATRIX  CORRECTION  CONTINUATION 


ESPOD  provides  a  special  option  which  permits  the  analyst  to  input 
T 

an  a  priori  A  A  matrix,  or  for  brevity,  S  matrix  (SMAT  cards).  The  option 
is  applicable  when  observational  data  is  processed  in  batches  and  more  than 
one  batch  is  required  for  a  single  differential  correction. 

Figures  5-6  and  5-7  respectively  show  how  the  first  and  second 
batches  are  processed.  Certain  restrictions  implied  in  the  method  are: 

•  The  initial  conditions  must  remain  the  same 

•  The  solution  vectors  must  remain  the  same 

•  The  set  of  weights  applied  to  observations  2  must  be  the 
same  as  that  applied  to  observations  1. 

Any  further  batches  are  processed  as  in  Figure  5-7  with  the  previously 
obtained  •  •  •  matrix  input  as  an  a  priori  condition. 

Because  of  the  restriction  that  initial  conditions  remain  the  same 

it  is  not  meaningful  to  let  the  program  iterate  on  the  new  batch  of  observa- 

T 

tions  with  a  fixed  a  priori  A  A  matrix.  The  differential  correction  per¬ 
formed  as  a  function  of  plus  07  (see  Figure  5-6)  results  in  a  new  set 
of  initial  conditions  IC2.  These  new  initial  conditions  are  not  appropriate 
to  the  a  priori  matrix  and  thus  successive  iterations  do  not  fulfill  re¬ 
striction  1.  If  it  is  required  to  iterate  on  plus  O^,  it  is  necessary  to 
include  both  and  as  observations  in  the  input  data. 

S-Matrices  may  be  obtained  in  a  form  compatible  with  ESP0D  input 
from  two  sources. 

1)  On  option,  every  differential  correction  iteration  will 
punch  out  the  current  S-matrix  relative  to  the  best  ele¬ 
ments  to  date  and  will  also  punch  those  elements  (JDC 
column  43  is  set  to  1;  a5f3ARv  elements  and  ITIME  cards 
are  correctly  provided  if  JDC  column  46  is  set  to  0). 

2)  On  option,  the  covariance  matrix  is  updated  by  ESP0DEPH 
to  a  specified  time  (JDC  column  55  is  set  to  1),  and  the 
inverse  covariance  matrix,  which  is  the  S-matrix,  is 
calculated  and  punched  (JDC  column  56  is  set  to  1).  This 
S-matrix  is  relative  to  the  osculating  elements  at  the 
time  of  update.  These  must  be  transcribed  from  the 
ephemeris  printout  to  IC0ND  and  ITIME  cards  for  input 

as  applicable  initial  conditions. 
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Figure  5-6.  Processing  Observations  Without  a  priori 
S,  A^A  Matrix 


Figure  5-7.  Processing  Observations  to  Accumulate  Further 
An  A^A  Matrix 
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5.13  ESP0DEPH  CONTROL 

The  spacecraft  ephemeris  is  generated  in  ESP0DEPH.  Thus, 
ESP0DEPH  requires  all  the  preliminary  initial  conditions  and  callouts 
for  perturbations  to  the  force  model.  The  preliminary  data  and  control 
data  items  appropriate  to  ESP0DEPH  are  listed  in  Table  5-XI.  Note  that 
items  IA,  IH,  and  IIA  are  mandator/. 

5.  13.  1  Source  of  Preliminary  Data 

ESP0DEPH  may  be  used  under  any  of  three  conditions: 

1)  Automatically  following  ESP0DDC 

2)  On  a  conditioned  or  conditional  start 

3)  On  a  11  cold- start11  without  ESP0DDC 

For  each  of  these  conditions,  the  preliminary  or  control  data,  or  both, 
may  come  from  different  sources.  The  sources  are  indicated  in  Figure  5-8, 
depending  on  the  path  through  the  flow  chart.  If  a  previous  ESP0DDC  run  is 
assumed,  which  either  automatically  preceeds  ESP0DEPH  or  which  has 
left  its  output  behind  for  a  subsequent  conditioned  start,  the  preliminary 
data  is  taken  from  Tape  L0G7.  In  the  automatic  case,  there  is  no  oppor¬ 
tunity  to  insert  new  preliminary  data  on  cards.  In  the  conditioned  start 
case,  it  is  mandatory  to  specify  the  ephemeris  time  points  and  any  parti¬ 
culars  of  the  acceleration  perturbations  may  be  changed  for  special 
purposes.  For  a  cold  start,  ESP0DEPH  run  only,  all  mandatory  prelimi¬ 
nary  data  specifying  initial  conditions,  ephemeris  time  points  must  be 
specified,  and  any  further  optional  data  may  be  specified.  If  covariance 
matrix  update  is  required,  it  is  mandatory  to  input  an  a  priori  convariance 
matrix  with  UPMAT  cards. 

5.13.2  ESP0DEPH  Output 

ESP0DEPH  prints  out  at  each  ephemeris  point  the  position  and 
velocity  of  the  spacecraft  in  element  sets  having  the  following  forms  and 
coo  rdinates : 

•  Orbit  plane  classical  elements 

•  Geocentric  polar  spherical 

•  Geocentric  Cartesian 

•  Indeterminacy  free 

•  Selenocent ric  and  heliocentric  Cartesian 
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Other  miscellaneous  data  is  also  given  for  convenience: 

•  Callendar  date  and  time 

•  Minutes  from  epoch 

•  Julian  date 

•  Geodectic  latitude,  longitude,  altitude 

•  Time  to  next  nodal  crossing 

•  Argument  of  latitude 

•  Altitude  at  apogee 

•  Altitude  at  perigee 

•  Period 

If  the  covariance  matrix  is  updated,  the  standard  deviations  and  correla¬ 
tions  are  given  for  elements  in  the  following  forms  and  coordinates: 

•  Orbit  plane  classical  elements 

•  Geocentric  polar  spherical 

•  Cartesian  (Earth  centered  inertial) 

If  the  covariance  matrix  is  updated,  the  standard  deviations  and  correlations 
for  position  are  given  in  the  following  coordinates: 

•  UVW 

•  Axes  of  the  position  error  ellipsoid 
5.13.3  Specification  of  Time  Points 


Time  points  for  ephemeris  prediction  may  be  input  in  any  of  three 
mutually  exclusive  modes: 


1)  Special  format  cards  (DAC  cards)  giving  the  time  point  for 
prediction  and  a  test  Cartesian  position,  which  has  been 
computed  elsewhere,  of  the  spacecraft  at  that  time. 


NOTE:  ESP0DEPH  calculates  Carte  sian  position 
with  X  axis  directed  toward  the  true  vernal  equinox 
at  0^.0  on  the  day  of  epoch  given  with  the  initial 
conditions.  This  may  be  different  from  the  co¬ 
ordinate  system  in  which  the  previously  computed 
test  value  is  given. 


2)  Ephemeris  table  generation  control  (DELTT  cards)  which 
enable  the  calculation  and  printing  of  the  ephemeris  at 
equally  spaced  intervals. 


3)  Prediction  at  specified  times  is  enabled  with  the  PRDCT 
cards. 
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Table  5 -XI.  ESP0DEPH  Preliminary  and  Control  Data  Options 


I.  Preliminary  Data 

A.  Initial  Orbit  Elements  and  Epoch  (Mandatory) 

B.  Atmospheric  Drag  Model 

1)  Drag  parameter  C^A/Zm 

a)  Drag  variation  coefficient  K 

b)  Drag  variation  model 

Z)  Model  atmosphere 
a)  APF  10  data 

C.  Geopotential  Model  Perturbations 

D.  Solar-Lunar  Perturbations 

E.  Radiation  Pressure  Model 

F.  Integration  Control 

G.  Covariance  Matrix 

1)  Results  from  differential  correction 
Z)  A  priori  covariance  matrix 

H.  Time  Points  for  Ephemeris  (Mandatory) 

1)  DAC  cards 

Z)  ESP0D  preliminary  data  cards 

II,  Control  Data 

A.  Select  ESP0DEPH  (JDC  Column  51)  (Mandatory) 

B.  Select  or  Omit  ESP0DDC  (JDC  Column  41) 

C.  Select  “Cold  Start"  or  Tape  L0G7  Preliminary  Data  (JDC 
Column  30) 

D.  Select  or  Omit  Covariance  Matrix  Update  (JDC  Column  55) 

E.  Select  DAC  Cards  for  Time  Point  Specification  (JDC  Column  5Z) 

F.  Generate  or  Disregard  Ephemeris  Tape  (JDC  Column  53) 

G.  Punch  or  Disregard  Inverse  Covariance  Matrix  Update  (JDC 
Column  56) 
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NOTE: 

PRELIMINARY  DATA 
ITEM,  1G;  MUST  BE 
PRESENT 
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ITEMS  FROM  TABLE  5-XI  Figure  5-8.  ESP0DEPH  Control  Logic 


5.  14  CONDITIONED  START 


The  conditioned  start  options  (JDC  column  30  =  1  or  2)  permit  the 
preliminary  data  for  a  run  to  be  taken  from  the  tape  record  left  behind 
by  the  last  iteration  of  some  preceding  differential  correction.  The  tape 
left  on  TAPE  LOG  7  after  a  differential  correction  contains  the  data  neces¬ 
sary  for  this  type  of  continuation. 

1)  Restarting  an  iteration  after  interrupt  or  machine  failure, 
without  necessitating  the  reading  in  of  all  preliminary  data, 
observations,  and  sensors  again  and  without  repeating 
already  performed  iterations. 

2)  Extending  the  immediately  previous  differential  correction 
with  more  iterations,  possibly  with  the  solution  vector  or 
force  model  modified. 

3)  Performing  a  prediction  with  the  results  of  immediately 
previous  differential  correction. 

5.  14.  1  Restrictions 

As  mentioned  in  Item  2)  above,  it  is  permissible  to  modify  some 
of  the  preliminary  data  associated  with  the  previous  differential  correc¬ 
tion  with  new  preliminary  data  cards  input  with  the  JDC  card  which  calls 
for  the  conditioned  start.  The  following  restrictions  apply: 

•  The  object  must  remain  the  same. 

•  The  initial  conditions  may  be  changed,  but  this  nullifies 
any  benefit  from  a  previous  differential  correction  run. 

•  The  solution  vector  may  be  changed,  but  if  drag  is  added 
to  the  solution,  and  a  drag  model  was  not  previously  pro¬ 
vided,  it  must  be  provided  with  the  new  preliminary  data. 

•  The  force  model  may  be  changed,  but  if  this  is  an 
ESP0DEPH  run  only,  the  new  circumstances  will  not  be 
appropriate  to  the  elements  derived  by  the  differential 
correction. 

•  New  observations  may  not  be  added. 

•  New  sensors  may  not  be  added.  However,  sensor  type 
data  (STYPE  cards)  and  standard  deviations  (SIGMA  cards) 
may  be  modified. 
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5.  14.  Z  Conditional  Start 


Conditional  start  is  a  suboption  of  conditioned  start.  The  conditioned 
start  option  is  provided  principally  to  guard  against  doing  a  prediction  using 
initial  conditions  which,  because  of  the  circumstances  of  their  formation, 
may  be  worse  than  the  best  available.  In  the  conditional  start  mode,  the 
run  will  not  proceed  if  two  conditions  were  present  when  the  source  differ¬ 
ential  correction  terminated: 

1)  Convergence  was  not  obtained  on  the  final  iteration. 

Z)  The  next  to  last  iteration  was  a  diverging  step.  This 

situation  is  the  result  of  termination  on  the  NITER  test 
in  trials  Z,  3,  or  4  while  attempting  to  obtain  a  con¬ 
verging  step  by  reducing  bounds  (see  Figure  5-4). 

The  points  where  exit  to  can  occur  because  of  the  "NITER  com¬ 

plete"  test,  within  the  blocks  titled  "Trial  Z,  for  E^,"  "Trial  3  for  E^," 
and  "Trial  4  for  E^,"  are  the  exit  points  which  prohibit  a  subsequent  con¬ 
ditional  start. 

5.  15  IMPACT  TESTS 

ESPOD  tests  for  impact  of  the  spacecraft  in  a  differential  correc¬ 
tion  run  and  in  an  ephemeris  generation.  For  an  ESP0DEPH  run,  the 
program  tests  for  impact  with  the  earth’s  surface,  defined  as  a  sphere 
of  6378.  165  km  in  radius.  If  impact  occurs  during  an  ESP#)DEPH  run, 
the  process  is  terminated. 

Impact  in  a  differential  correction  run  (ESP0DDC)  occurs  if  the 
radius  vector  to  the  vehicle  falls  below  6453.  165  km,  i.  e.  ,  below  an 
altitude  in  the  approximate  range  of  66  to  84  km.  If  impact  occurs  dur¬ 
ing  an  ESP0DDC  run,  observations  which  have  already  been  processed 
are  used  to  obtain  some  kind  of  correction.  If  the  situation  is  not  hope¬ 
less,  the  correction  will  result  in  a  better  set  of  initial  conditions  which 
will,  on  the  next  iteration,  carry  the  orbit  farther. 
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5.  16  COVARIANCE  MATRIX 


One  of  the  ESPOD  outputs  is  the  var iance -covar iance  matrix,  which 
expresses  the  errors  in  the  solved  parameters.  This  matrix  can  be  inter¬ 
preted  in  a  statistical  or  a  nonstatis tical  way.  For  the  sake  of  discussion, 
suppose  that  the  parameters  solved  for  are  a,  (3,  6,  A,  R,  v,  and  consider 
the  interpretation  of  the  upper  lefthand  corner  element  of  the  covariance 

matrix,  namely  a  the  variance  in  a. 
a 

5.  16.  1  Statistical  Interpretation 
Assumptions: 

a)  The  mathematical  model  is  exact,  that  is,  if  there  were 
no  errors  in  the  observations,  the  result  would  be  the 
perfect  answer,  zero  residuals,  and  zero  root  mean 

s  qua  res. 

b)  The  observations  are  subject  to  uncorrelated  errors 
with  mean  zero. 

c)  The  standard  deviations  of  the  errors  in  the  observations 
are  known.  They  are  equal  to  the  standard  deviations 
which  were  input  to  the  program  for  use  as  reciprocal 
weights . 

d)  The  output  errors  are  linear  functions  of  the  input  errors. 

It  follows  from  all  of  these  assumptions  that  a  ^  is  the  variance  in 
the  parameter  a.  If  it  is  also  assumed  that  the  input  errors  are  normal, 
the  output  errors  are  also  normal  and  regions  of  confidence  can  be  con¬ 
structed  on  the  variables  a,  6,  (3,  A,  R,  v  using  multivariate  normal  dis¬ 
tribution  theory. 

5.  16.  2  Nonstatistical  Interpretation 

From  another  standpoint,  <r  ^  expresses  the  sensitivity  of  the  output 
value  to  the  input  data.  The  entire  matrix  could  be  output  which  gives  the 
partial  derivatives  of  the  output  a,  6,  (3,  A,  R,  v,  C^A/2m,  K  with  respect 
to  each  input  observation. 

Since  there  are  usually  a  great  many  observations,  this  would  in¬ 
volve  more  output  than  could  be  typically  assimilated;  the  covariance 
matrix  can  be  regarded  as  a  summary  of  this  large  matrix. 
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5.  16.  2.  1  Using  Assumption  d)  Above 


The  following  question  can  be  asked:  "How  much  would  the  output 

value  of  a  change  if  the  input  data  changed  by  a  certain  amount?  11  The 

2 

value  <r  is  directly  related  to  this  question  under  the  following  rule: 

"If  the  root  mean  square  of  the  weighted  changes  in  the  input  data  is  less 
than  K,  then  the  resulting  change  in  a  will  be  less  than  cr^KVn,  where  n 
is  the  number  of  observations.  The  weights  used  here  are  the  inverses 
of  the  standard  deviations  estimated  for  the  sensors.  To  make  this  inter¬ 
pretation  of  the  covariance  matrix  only  assumption  d)  is  used. 

5.16.2.2  Using  Assumptions  a)  and  d)  Above 

By  adding  assumption  a)  one  can  get  a  stronger  statement,  namely: 

If  the  input  data  differs  from  the  true  data  by  errors  with  weighted  root- 

mean- square  less  than  K,  then  the  output  a  differs  from  the  true  a  by 

less  than  (r  Kyn. 

a  v 

5.  16.  3  Comparison 

The  comparison  of  statistical  and  nonstatistical  interpretations  will 
lead  to  quite  different  estimates  in  the  errors.  In  the  first  interpretation, 
c is  a  reasonable  estimate  for  the  error  in  a,  and  in  the  second  interpre¬ 
tation is  the  estimate.  Since  n  may  typically  be  1000,  the  estimates 
are  quite  different. 

The  question  of  which  estimate  to  accept  is  a  philosophical  one. 

Input  errors  may  be  distributed  "nicely"  with  mean  zero  and  hence  largely 
cancel  each  other  out  or  they  may  be  distributed  in  the  worst  possible  way. 
As  an  argument  for  the  second  interpretation,  it  may  be  shown  that  there 
is  a  set  of  worst  possible  changes  which  one  could  make  in  the  data,  with 
RMS  =  1,  such  that  the  change  in  a  is  actually  c Vn.  (In  mathematical 
jargon  "the  inequality  is  sharp.")  Also,  this  worst  possible  set  of  changes 
is  not  a  particularly  diabolical  set;  in  some  cases,  the  worst  possible  set 
is  simply  a  constant  bias. 
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6.  DIFFERENTIAL  CORRECTION  PROCESS 


The  discussion  has  two  parts.  The  first  part  describes  the  least 
squares  problem  and  the  differential  correction  solution  in  an  abstract 
mathematical  way.  The  second  part  shows  the  relation  between  the 
least  squares  problem  and  orbit  determination. 

6.  1  MATHEMATICAL  DESCRIPTION 

6.  1.  1  The  Problem 

A  set  of  N  functions  of  M  variables  is  given. 


fi  <ar'  •  '  •  aM> 


f2  (ar  •  ■  ■  ,  aM) 


(1) 


fN<a 


1* 


aM> 


The  problem  is  to  choose  the  values  of  a,  ,  a~ ,  •  •  •  aw  which  minimize 

1  Z  M 

the  expression 


The  solution  vector  is  the  weighted  least  squares  solution. 

The  problem  is  more  tersely  stated  in  vector  notation.  Given  a 
vector  function  f(a)  of  a  vector  a,  find  a  such  that  IN  a)  |P  is  minimized. 

6.1.Z  The  Solution 

Suppose  that  an  approximate  solution  a^°»  a^0 '*  *  #  *  »  a^°  is  given. 
Expand  each  function  f^  in  a  Taylor  series  about  the  point  a^°,  *  •  •  ,  a  ° , 
and  drop  all  but  the  linear  terms  to  obtain  an  approximate  expression 
for  f^.  in  a  neighborhood  of  the  point  a^0,  *  *  *  >  aM°: 
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*M°) 


m  af 

+  £  -dT  (ai  "  ai0)’  k  =  l>  •  •  •  >  N  (3) 

j=l  j 

The  partial  derivatives  are  evaluated  at  the  point  a^°,  •  •  *  ,  a  °. 

Now  consider  the  problem  of  minimizing  the  approximate  expres¬ 
sion  for  the  sum  of  weighted  squares  of  the  functions  f^_,  i.  e.,  consider 
the  problem  of  finding  a^,  •  •  •  ,  a^  so  as  to  minimize  the  expression 


M 

\ 

) 


j=i 


9fk  ( 
9a.  laj 


(4) 


Differentiating  the  expression  with  respect  to  a^  and  setting  the  result 
equal  to  zero  shows  that  the  required  (a^,  *  *  '  ,  aV^  satisfy  the  equation 


M 

\ 

,  .  N 

fa  -  a°]  V  1 

8fk 

p 

1  9fk 

L. 

j  =  l 

^  j  j  '  k=  1  o-  2 

k 

3a. 

i 

8aj 

2  8a. 
"k  1 

(5) 


i  =  1 ,  •  •  •  f  M 

This  is  a  system  of  M  linear  equations  in  M  unknowns.  It  is  customary 
to  solve  them  not  for  the  (a^,  *  *  •  ,  a^.)  directly  but  for  the  "differential 
corrections.  " 


x.  =  a.  -  a.  ,  i  =  1 ,  •  •  •  ,  M 

J  J  J 


(6) 


The  differential  correction  method  can  now  be  described  as  follows. 
Start  with  an  approximate  solution  a^°,  •  •  •  ,  a^  °  and  compute 


fk(al°*  *  •  •  *  aM°)  k  =  1-  •  •  •  •  N 

9f, 

^7lal°>  •  •  •  *  aM°J;k=  1.  *  *  *  .  N,  j  =  1.  •  •  •  .  M 
J 


(7) 
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Form  the  coefficients 


c. . 


ij 


£  afk  afk 

X,  9a.  9a.  ’  u  *  ~  lf  *  '  *  ’  M 

K-l  i  j 


d.  =  - 
i 


M 


(8) 


and  solve  the  system  of  linear  equations 

M 

X,  c  X  =  d  ;  i  =  1,  •  •  •  ,  M  (9) 

J=1  J  1 


for  x^  , 


Then 


a.1  =  a°  +  x.;  j  =  1,  •  •  •  ,  M  (10) 

J  J  J  '  ' 

gives  the  next  approximate  solution.  The  values  a*,  a  * ,  •  •  •  ,  a  * 

O  O  ^  “  JVL 

replace  a^  ,  •  •  •  ,  a^.  and  the  process  is  repeated  as  often  as  necessary. 

The  process  can  be  stated  more  tersely  in  matrix  notation.  An 
approximation  a°  is  given.  Compute  the  vector  f°  =  f(a°),  and  compute 
the  matrix  of  partial  derivatives  A.  The  k,  j  element  of  A  is  given  by 


akj  3  a . 

J  J 

Calculate  the  matrix  C  and  the  vector  d: 

c  =  ata 

d  =  -ATf° 


(H) 


(12) 

(13) 


Solve  the  linear  system  Cx  =  d  for  x,  and  let  a  =  a°  +  x  replace  a°. 
Repeat  as  often  as  necessary. 

6.1.3  Modified  Differential  Corrections 

The  method  just  described  is  the  method  generally  given  in  text¬ 
books,  but  it  is  not  adequate  from  a  theoretical  or  practical  standpoint. 
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Theoretically,  it  requires  strong  hypotheses  to  prove  convergence; 
practically,  it  is  found  that  many  cases  diverge.  The  problem  is  that 
the  "differential  corrections"  may  not  be  differential.  More  exactly,  the 
corrections  x.  may  be  so  large  and  the  Taylor  series  expansion  so  poor 
that  the  sum  of  squares  increases  instead  of  decreases  on  each  iteration. 

The  following  modification  is  made  to  improve  the  convergence  of 
the  process.  Instead  of  choosing  x^,  x^,  •  •  •  ,  x^.  to  minimize  the 
expres  sion 


F  = 


3f, 


1  Z 


Q -  X 

9a.  j 


(14) 


we  choose  x,,  •  •  •  ,  x^  ,  to  minimize  F  under  the  side  condition  that 
1  M 


(15) 


where  B,  ,  *  *  *  ,  Bw  is  a  set  of  positive  numbers.  The  side  condition 
1  M 

insures  that  the  corrections  x^  will  be  reasonably  small;  in  particular, 
it  insures  that 


x. 

J 


(16) 


The  numbers  B^,  *  •  •  ,  B-^  are  called  "bounds."  If  they  are  small,  they 
tend  to  make  the  program  converge  in  a  slow  but  sure  manner;  if  they 
are  large  they  tend  to  make  the  program  select  larger  and  riskier  cor¬ 
rections.  The  program  starts  out  with  a  set  of  bounds  which  may  be 
prescribed  by  the  analyst,  and  automatically  increases  or  decreases  the 
bounds  as  the  iteration  continues.  If  an  iteration  fails,  the  program 
decreases  the  bounds.  If  an  iteration  works  as  predicted,  then  the  pro¬ 
gram  increases  the  bounds. 

In  matrix  notation,  the  modified  differential  correction  selects  a 

vector  x  which  minimizes  ||f°  +  Ax||  under  the  side  condition  that 
T  -  2 

x  B  x  ^1,  where  B  is  a  diagonal  matrix  with  positive  diagonal  elements 

B.. 

J 
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6.  1.  4  Forming  the  Coefficient  Matrix 


The  matrix 

C  =  ATA  (17) 

could  be  computed  by  forming  the  A  matrix  in  the  computer,  transposing 
it,  and  multiplying  by  A  with  a  standard  matrix  multiply  routine.  However, 
this  method  would  waste  time  and  computer  memory.  Instead,  the  matrix 
is  formed  by 


N 


C  =  X 


k=l 


rk  rk 


(18) 


th 

where  r ,  is  the  k  row  of  the  A  matrix.  Each  time  a  row  of  A  is  formed, 

.  t 

the  matrix  r^  r^  is  added  to  C.  This  means  that  there  is  no  need  to 
store  the  A  matrix  at  all,  and  hence  an  indefinite  number  of  rows  (or 
observations)  can  be  used. 

Similar  remarks  hold  for  the  vector  d,  which  is  computed  by 


d 


N 

y  r,  1  f,  o 
k4i  k  k 


(19) 


6.  1.  5  Predicted  Sum  of  Squares 
The  quantity 

2 

F  =  ||£°  +  Axil  (20) 

is  an  estimate  of  the  quantity 

—  i  ii  2 

F  =  ||f  (a°+  x)||  (21) 

Since  F  can  be  computed  before  F  in  the  process,  it  is  regarded  as 
a  prediction  of  F.  That  is,  at  the  time  of  computing  the  correction  x, 
one  computes  Ilf °  +  Axil  ,  which  is  a  prediction  of  what  will  happen  when 
the  correction  is  actually  applied. 
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Since  the  matrix  A  is  generally  not  available,  F  is  computed  by 
the  equivalent  form 


F  =  (A  Ax,  x)  +  2  (A  f°,  x)  +  j|f° 

2 

=  (Cx,  x)  -  Z  (d,  x)  +  |lf°|J 


(22) 


(23) 


The  quantity 


IH; 


is  computed  at  the  same  time  C  and  d  are  computed: 


(24) 


Then  F  can  be  computed  from  the  known  quantities  C,  d,  and  ||f°|l  . 

6.  1.  6  Solution  for  the  Differential  Correction 

The  unmodified  form  of  the  differential  correction  process  requires 
the  solution  of  the  system  of  linear  equations. 


T  T 

A  Ax  =:  -A2f 


(25) 


In  general,  a  system  of  M  linear  equations  in  M  unknowns  may  not  have 

a  solution.  One  might  then  inquire  what  the  differential  correction  method 

does  if  no  solution  exists  for  the  system  (25).  It  turns  out  that  this  is  not 

T 

a  problem,  since  a  solution  of  (25)  always  exists.  If  the  matrix  A  A  is 
singular,  there  is  still  a  solution;  in  fact,  there  are  an  infinite  number  of 
solutions.  The  situation  is  summarized  by  the  following  theorem. 

a)  ||  (A  X  +  f°r  is  minimized  if  and  only  if  x  satisfies 

ATAx  =  -ATf° 

b)  There  exists  a  solution  x  of  the  equation 

ATAx  =  -ATf° 

For  the  modified  differential  correction  method,  the  situation  is 
slightly  more  complicated.  Define  x  (\)  as  a  solution  of  the  equation. 


/aTa  t  %  -2X  ATro 

(A  A  -f  \B  )  x  =  -A  f 


(2  6) 
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Consider  the  problem  of  minimizing  +  Ax  under  the  side  condition 
T  -Z  II  I 

that  x  B  x  rf  1.  It  is  possible  to  prove  the  following  theorem:  (a)  A 

solution  to  (26)  always  exists.  If  X  0,  the  solution  is  unique;  (b)  If 
there  is  a  solution  x  =  x(0)  of  (26)  for  X  =  0  which  satisfies  the  side  condi¬ 
tion,  then  x  is  a  solution  of  the  minimum  problem;  (c)  If  there  is  no 

solution  of  (26)  which  satisfies  the  side  condition,  then  there  is  a  X  0  such 

T  -2  ° 

that  x  =  x  (X  )  satisfies  x  B  x  =  1.  Then  x  (X  )  is  a  solution  of  the 
o  o' 

minimum  problem. 

6.  2  APPLICATION  TO  ORBIT  DETERMINATION 

The  orbit  determination  problem  can  be  expressed  as  a  problem  of 
minimizing 

N 

ll£<a>H2=  kll  [£k<al'"''  aM>]2  <27> 

provided  that  the  parameters  a^,  •  •  •  ,  a^.  and  functions  f^,  •  •  •  ,  f 
are  interpreted  in  the  following  way. 

The  components  of  the  vector  a  are  the  unknowns  to  be  solved  for. 

In  the  basic  problem  solved  by  ESPOD,  there  are  M  =  6  parameters  given 
by  the  initial  conditions 


In  other  problems,  the  number  M  of  parameters  may  be  greater  than  6, 
and  the  components  of  Man  may  include  drag  parameters ,  station  loc ation 
errors,  data  biases,  etc. 

The  functions  f^.,  k  =  1,  •  •  •  ,  N  are  the  weighted  differences  between 
the  observed  data  and  the  computed  data.  For  example,  if  the  first 
observation  is  a  range  measurement  R^.  from  a  particular  station  at  a 
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particular  time,  and  if  R^_.  is  the  computed  value  of  the  range  for  that 
station  and  time,  then  the  first  component  of  f  would  be 


f 


1 


(28) 


where  l/o*  is  the  weight  assigned  to  that  particular  observation.  The 
other  components  of  the  vector  f  are  defined  similarly. 

The  weighted  partial  derivative  matrix  A  is  obtained  by  differenti¬ 
ating  the  computedmeasur ements  with  respect  to  the  parameters  and 
multiplying  by  the  appropriate  weight.  For  example,  the  first  row  of  the 
A  matrix  would  be  given  by 


1 


a. .  =  — 

y  cr 


j  =  i. 


M 


(29) 


Note  that  the  calculation  of  the  A  matrix  does  not  depend  on  the  measured 
value  R^.  This  fact  permits  one  to  make  error  studies,  which  are 
generally  based  on  the  matrix  A,  without  having  any  actual  measured 
data,  but  using  estimates  of  standard  deviations  applied  to  them. 
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7.  COORDINATE  SYSTEMS 


This  section  describes  and  illustrates  the  various  coordinate  systems 
used  by  ESPOD  either  in  receiving  or  manipulating  data,  or  in  presenting 
the  results. 

The  following  are  definitions  of  terms  applicable  to  the  different  coordi 


nate  systems: 

Vernal  Equinox: 

That  point  of  intersection  of  the  ecliptic 
and  celestial  equator  where  the  sun  crosses 
the  equator  from  south  to  north  in  its  ap¬ 
parent  annual  motion  along  the  ecliptic 

Equator: 

The  great  circle  intersection  of  the  celes¬ 
tial  sphere  and  a  plane  containing  the  cen¬ 
ter  of  mass  perpendicular  to  the  rotating 
axis  of  the  earth 

True  of  (Epoch  or  Date) 

The  actual  position  at  a  given  time  of  the 
vernal  equinox  including  both  precession 
and  nutation 

Mean  of  (Epoch  or  Date) 

A  fictitious  equinox  whose  position  is  that 
of  the  vernal  equinox  at  a  particular  time 
with  the  effect  of  a  nutation  removed 

Osculating  Elements: 

The  elements  of  an  instantaneous  orbit 
which  are  tangent  to  the  actual  trajectory, 
having  the  same  position  and  velocity  at 
that  time 

Date: 

An  exact  time;  e.g.,  the  date  of  an  observa¬ 
tion  is  the  exact  time  at  which  it  was  made 

Epoch: 

Some  initial  reference  instant  of  time 

Radar  observations,  (R,  A,  E,  R)  are  taken  and  updated  in  the  sensor 
dependent  coordinate  system  in  which  the  axis  is  the  actual  vernal  equinox, 
i.  e.,  true  equinox  of  date.  These  observations  are  used  by  ESPOD  in  the 
form  in  which  they  are  reported. 

The  photographic  telescope  (Baker-Nunn  cameras)  observations  (a,  6) 
are  taken  in  a  sensor  dependent  coordinate  system.  The  photographs  or 
plates  are  "reduced  11  by  means  of  right  ascension  and  declination  grids 
for  that  portion  of  sky  which  was  photographed.  The  reductions  fall  into 
two  categories.  The  first  is  called  "field  reduced"  and  the  second  "preci¬ 
sion  reduced".  The  field  reduced  observations  give  right  ascension  and 
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decimation  in  a  coordinate  system  in  which  the  axis  is  the  mean  equinox 
of  1855.0  (beginning  of  the  Julian  year)  for  \\ (geodetic  latitude)  >  -22° 
or  1875.  0  for  ijj*  -c  -22°.  The  precision  reduced  observations  (which  are 
reduced  by  the  Smithsonian  Observatory)  give  right  ascension  in  a  coordi¬ 
nate  system  in  which  the  x-axis  is  directed  to  the  mean  equinox  of  date; 
i.e.,  corrected  for  precession  to  the  time  of  observation  only. 

The  reduced  observations  are  handled  in  various  ways  by  ESPOD.  The 
precision  reduced  data  are  updated  by  ESP 0D  to  a  coordinate  system  which 
is  true  of  day  of  epoch  and  mean  of  date.  Stated  simply,  the  observations 
are  corrected  for  precision  and  nutation  to  the  epoch,  and  for  precession 
to  the  date  of  observations.  Hence,  the  only  correction  which  is  not  in¬ 
cluded  is  the  nutation  correction  from  the  epoch  to  the  date  of  observations. 
This  period  usually  does  not  exceed  ten  days. 

The  field  reduced  data  can  be  processed  by  0RC0N  which  processes 
the  data  to  true  of  date,  writes  on  tape,  and  feeds  the  data  to  ESP0DDC. 

If  the  field  reduced  data  are  punched  on  cards  mean  of  1855  or  1875,  the 
cards  are  processed  by  ESP$D  to  give  the  observations  in  true  equinox 
of  OOhdayof  epoch  before  being  used  by  ESP0DDC. 


Figure  7-1  summarizes  the  above  discussion. 


Figure  7-1.  Processing  Baker-Nunn  Data 
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7.  1  EARTH  CENTERED  INERTIAL  CARTESIAN  SYSTEM 


The  position  and  velocity  of  a  body  at  point  P  are  P  =  P(x,  y,  z,  x,  y,  z). 


Z 


where 

O  is  the  geocenter 

V  is  the  velocity  vector 

X  is  a  vector  from  O  in  the  equatorial  plane  directed  to  the  true 
vernal  equinox  at  0.  Oh  universal  time  on  the  day  of  epoch 

Y  is  a  vector  from  O  and  perpendicular  to  X  such  that  (X,  Y,  Z) 
is  a  right-handed  system 

Z  is  a  vector  perpendicular  to  the  equatorial  plane  and  directed 
north . 

In  P  =  P(x,  y,  z,  x,  y,  z),  x,  y,  z  are  components  of  position  of  the  body 
in  the  X,  Y,  Z  directions  respectively,  and  x,  y,  z  are  its  components  of 
velocity  in  these  directions. 
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7.  2  GEOCENTRIC  POLAR  SPHERICAL  (ADBARV)  SYSTEM 

The  position  and  velocity  of  a  body  at  point  P  are  P  =  P(a,  6 , 0,  A,  r,  v) 

Z 


where  V  is  a  vector  equal  in  magnitude  and  direction  to  the  velocity  of  the 
body  at  point  P,  and  where  X  is  a  vector  from  O  in  the  equatorial  plane 
directed  to  the  true  vernal  equinox  at  0.  Oh  universal  time  on  the  day  of 
epoch. 

In  P  =  P(a,  6,  0,  A,  R,  v) 

a  is  the  right  ascension  of  P 
6  is  the  declination  of  P 

p  is  the  flight  path  angle  measured  positive  downward  from 
the  geocentric  vertical  at  P  to  the  velocity  vector 

A  is  the  azimuth  of  the  velocity  vector  measured  positive 

clockwise  from  true  north  to  the  projection  of  the  velocity 
vector  in  a  plane  normal  to  the  local  geocentric  vertical 

r  is  the  geocentric  range  to  P 

v  is  the  magnitude  of  the  velocity  vector,  V, 
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7.  3  GEOCENTRIC  POLAR  SPHERICAL  (XDBARV)  SYSTEM 


The  position  and  velocity  of  a  body  at  point  P  are  P  =  P(\,  6  ,  (3,  A,  r,  v) 


Z 


where 


X  is  a  vector  from  O  in  the  equatorial  plane  directed  to  the 
true  vernal  equinox  at  O.Oh  universal  time  on  the  day  of 
epoch 


a  is  the  right  ascension  of  the  Greenwich  meridian  at  time  t 


a 

g 


a  +  a)  (t 
go  e 


M 


) 


a  is  the  right  ascension  of  the  Greenwich  meridian  at  time  t.  , 

go  &  M 

tj^.  is  O.Oh  universal  time  at  day  of  epoch 

co  is  the  rate  of  earth  rotation. 

e 


In  P  =  P(\,  6,  (3,  A,  r,  v,  ) 

X.  is  longitude  of  P,  measured  positive  eastward  from  the 
Greenwich  meridian. 

6,  (3,  A,  r,  V  are  the  same  parameters  as  defined  in  Section  7.  2. 
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7.4  ORBIT  PLANE  (U,  V,  W)  SYSTEM 


Deviations  in  position  and  velocity  of  a  body  at  C  are  C  =  C  (u,  v,  w, 

.  .  . 

u,  v,  w) 


U 


where 

O  is  the  center  of  the  earth 

C  is  the  center  of  a  body  in  orbit 

U  is  the  vector  from  C  collinear  to  a  vector  from  O  to  C 

V  is  the  vector  from  C  perpendicular  to  U  and  lying  in  the 

orbit  plane 

W  is  the  vector  from  C  which  completes  a  right  handed 
coordinate  system 

In  C  =  C  (u,  v,  w,  u,  v,  w),  u,  v,  w  are  the  components  of  the  deviation 

in  position  of  the  body  in  the  up,  down,  cross  or  u,  v,  w  directions  respec- 

•  •  • 

tively;  and  u,  v,  w  are  its  components  of  deviation  in  velocity  in  these 
directions . 
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7.5  ORBIT  PLANE  (S,  T,  W)  SYSTEM 


Deviations  in  position  and  velocity  of  a  body  at  C  are  C  =  C  (s,  t,  w, 

w) 

.  V 


\ 


where 

O  is  the  center  of  the  earth 

C  is  the  center  of  a  body  in  orbit 

T  is  the  vector  from  C  collinear  with  the  ins tantaneous  velocity 
vector  of  the  body 

S  is  the  vector  from  C  perpendicular  to  T  and  lying  in  the 
orbit  plane 


W  is  the  vector  from  C  which  completes  a  right  handed  system 

In  C  =  C  (s,  t,  w,  s,  t,  w)  s,  t,  w,  are  the  components  of  the  deviation  in 
position  of  the  body  in  the  S,  T,  W,  directions  respectively;  and  s,  t,  w  are 
its  components  of  deviation  in  velocity  in  these  directions. 
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7.6  SENSOR-DEPENDENT  (W)  COORDINATE  SYSTEM 


The  position  of  a  sensor  and  an  astronomical  body  relative  to  the 

s  s  s  s  s  s 

sensor  at  points  W  ,  W  are  described  by  W  =  W  (w^  ,  )  and 

W  =  W(wj,w^,  w^). 


w3=z 


where 


X 

ws 


X 


a 


to 

e 


W  W 

r  2 
o 


is  a  vector  from  0  in  the  equatorial  plane  directed 
to  the  vernal  equinox 

is  the  location  of  the  sensor  at  some  time  t 

=  X  +  a  -fco(t-  t.,) 

g  e  M 

Bo 

is  the  geodetic  longitude  of  the  sensor,  where  X  is 
true  of  0.  Oh  day  of  epoch 

is  the  right  ascension  of  Greenwich  at  time  U  , 

°  M 

is  O.Oh  universal  time  of  epoch 
is  the  rate  of  earth  rotation 

are  the  axes  X,  Y,  rotated  through  the  angle  a 
is  the  geocenter. 
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where 


e 

h 


0* 


is  the  semimajor  axis  of  the  earth 

is  the  semiminor  axis  of  the  earth 

is  the  sensor  altitude  above  the  geoid 

is  the  geodetic  latitude,  where  X  and  W  j  are  with 
respect  to  true  of  date. 


In  WS  =  WS(w^S,  w^S,  w^S) 


w 


s 

1 


w 


s 

Z 


s 


w 


3 


is  parallel  to  the  equatorial  plane  and  in  the  sensor 
meridian  plane 

is  normal  to  the  sensor  meridian  plane  to  form  a 
right-handed  system,  and  equals  zero  since  the 
sensor  is  in  the  meridian  plane 

is  perpendicular  to  the  equatorial  plane  and  defines 
a  distance  from  it  in  the  sensor  meridian  plane. 
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where 

W  is  the  position  of  the  body 

s 

W  is  the  position  of  the  sensor 

s 

Q  is  the  projection  of  Q  =  W  -  W  onto  the  tangent 

P  plane  at  Ws 

g 

HA  is  the  hour  angle  from  W  to  W 
6  is  the  declination  of  W 

s 

A  is  azimuth  of  W  from  WL 

g 

E  is  elevation  of  W  from  W 

g 

Q  is  the  position  vector  of  W  from  W  ,  and  other 
quantities  are  as  previously  defined. 


In  W  =  W  ( w  i ,  w>,  w^) 


w 

w 


1 

2 


s  s 

and  are  defined  the  same  as  and  preceding 

s 

is  defined  the  same  as  except  it  is  not  necessarily  zero. 
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7.7  OSCULATING  CLASSICAL  ELEMENTS 


The  position  and  velocity  of  a  body  at  point  P  =  P(Tq,  P^»  Nq>  C^>  ^o’ 

goq,  gjq,  i,  e,  Q  ).  These  elements  are  defined  at  the  time  of  the  ascending  node 
of  the  osculating  ellips  e  .  These  elements  are  printed  only  for  an  update  time  . 


A 


where 

X  is  a  vector  from  O  in  the  equatorial  plane  directed  to  the  true  vernal 
equinox  at  0 .  Oh  universal  time  on  the  day  of  epoch 


In  P  =  P(TC,  PN,  No,  CN, 


W  , 
o 


i, 


e, 


Qo> 


T  is  the  time  of  epoch,  nodal  crossing  time  for  epoch  revolution, 
in  days  of  year 

P^  is  the  nodal  period  at  epoch 

Nq  is  the  epoch  revolution  number 

C^  is  the  rate  of  change  of  nodal  period  (P^) 

is  the  right  ascension  of  ascending  node  at  Tq 
is  the  time  derivative  of  right  ascension  of  ascending  node 
coq  is  the  argument  of  perigee  at  Tq 

is  the  time  derivative  of  argument  of  perigee 
i  is  the  orbit  plane  inclination  to  equatorial  plane 
e  is  eccentricity 
Qq  is  the  perigee  distance  at  T^ 
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7.8  INDETERMINACY  FREE  ELEMENTS 


The  position  and  velocity  of  a  body  at  point  P  are  P(l/a,  r  ,  u  , 

o  — o 

■yp,  v^,  Dq).  These  are  called  the  indeterminacy  free  osculating  elements 
at  the  given  update  times.  They  have  been  included  to  circumvent  the 
indeterminacies  which  are  inherent  in  the  "classical  set"  (a,  e,  ft,  i,  gj  ,  T) 
for  certain  types  of  orbits.  For  example:  when  i  =  0,  ft  is  undefined; 
when  e  =  0 ,  cj  is  undefined. 


where 

X  is  a  vector  from  O  in  the  equatorial  plane  directed 
to  the  true  vernal  equinox  at  0.  Oh  universal  time  on 
the  day  of  epoch. 

In  P  =  P(l/a,  r  ,  u  ,  -\fpv  *  D  ) 
o  —  o  v  —  o  o 

l/a  is  the  inverse  of  the  semimajor  axis 

r  is  the  magnitude  of  the  position  vector  at  the  update 

tim  e 

u  is  the  unit  vector  collinear  with  the  position  vector 

at  the  update  time 
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is  the  vector  in  the  orbit  plane,  orthogonal  to  u  , 
with  magnitude  of  the  square  root  of  the  semi- 
latus  rectum 


D  is  the  scalar  product  of  position  and  velocity  vectors 

at  the  reference  time 


In  order  that  a  set  of  orbital  elements  be  useful,  it  should  provide 
a  description  of  the  orbit  that  is  easily  understood,  as  well  as  define 
position  and  velocity  at  epoch.  Ease  of  two-body  position  and  velocity 
prediction  is  also  of  importance.  The  indeterminacy  free  elements  are 
useful  because  (a)  they  are  determinate  for  all  types  of  orbits;  (b)  they 
retain  some  descriptive  value  which  is  nearly  equal  to  the  ’’classical  set," 
and  certainly  better  than  r_^  and  and  (c)  two -body  position  and  velocity 
predictions  are  easily  accomplished  using  a  single  set  of  equations. 

The  equations  of  condition  on  the  unit  vectors  are  as  follows: 


1 


Vp^o  '  Vp: 


•vo  =  P 


There  are  six  independent  orbital  elements;  i.e.,  nine  elements  related 
by  three  equations.  The  manner  in  which  these  elements  reduce  to  the 
minimum  set  required  to  define  each  orbit  type  is  detailed  in  Table  7-1. 


7-13 


Table  7-1.  Summary  of  Conditions  Necessary  to  Define 
Each  Orbit  Type  with  Indeterminacy  Free 
Elements 


Orbit  Type 

Requi  red 
Numbe  r 
of  Elements 

a 

r  D 

o  o 

% 

i< 

o 

T  otal 

—  o  Elements 

Equations 

of 

Condi  tion 

Circle 

4 

a 

II 

O 

o 

7 

3 

Ellipse 

6 

9 

3 

Parabola 

5 

0 

8 

8 

Hype  rbola 

6 

9 

3 

Re  ctilinear 

4 

Derived 

0 

5 

1 

Ellipse 

from 

1 

a’  ro 

Rectilinear 

3 

0 

Derived 

0 

4 

1 

Parabola 

from 

1 

— ,  r 

a  o 

Re  ctilinear 

4 

Derived 

0 

5 

1 

Hype  rbola 

from 

1 

— ,  r 
a  o 
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7.  9  ERROR  ELLIPSOID  ROTATION 


The  orientation  of  the  position  error  ellipsoid  with  respect  to  the 
U.  V,  W  axes  is  such  that  the  three  principal  axes  are  identified  by  the 
nearest  axes  of  the  U,  V,  W  set. 


Illustrated  are  the  ordered  yaw  ( <p ,  positive  right,  about  axis)  pitch 
(0^,  positive  clockwise  about  axis)  rotations  of  the  U,  V,  W  coordinate 
system  which  align  it  with  the  error  ellipsoid.  Note  that  V  is  approxi¬ 
mately  the  direction  of  flight  of  the  vehicle.  Yaw  is  about  the  U  axis; 
pitch  is  about  the  W  ^  axis  (newly  positioned  as  a  result  of  first  rotation, 
<p);  and  roll  is  about  the  V  ^  axis  (newly  positioned  as  a  result  of  the  <p  ^ 
and  <p^  rotations). 
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Yaw  is  positive  to  the  right,  thus  (p j,  as  shown,  i 
pitch  down,  thus  <p  ? ,  as  shown,  is  a  negative  pitch;  and 
clockwise  when  facing  along  the  positive  V  axis;  thus, 
positive . 


s  a  negative  yaw; 
roll  is  positive 
as  shown,  is 
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